Fix FileReference>>#stonOn: to always use a platform independent representation

Author: svenvc

repository/STON-Core.package/FileReference.extension/instance/stonOn..st

@@ -2,8 +2,10 @@
 stonOn: stonWriter
 	self fileSystem isDiskFileSystem
 		ifTrue: [ | diskFilePath |
-			diskFilePath := String streamContents: [ :out | 
-				filesystem printPath: path on: out ].
+			"in order to get $/ as delimiter and $. as working directory on all platforms"
+			diskFilePath := path isWorkingDirectory
+				ifTrue: [ '.' ]
+				ifFalse: [ path pathString ].
 			stonWriter 
 				writeObject: self 
 				named: STONFileReference stonName