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

…esentation
svenvc · Nov 19, 2019 · b4a42b2 · b4a42b2
1 parent 89263e1
commit b4a42b2
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/repository/STON-Core.package/FileReference.extension/instance/stonOn..st b/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