diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st
index 198e0779..6f8c5c0a 100644
--- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st
+++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st
@@ -2,6 +2,6 @@ files
 newTemporaryFileNamed: aName
 
 	| fileName |
-	fileName := '/tmp/', aName.
+	fileName := GRPlatform current pathSeparator,'tmp', GRPlatform current pathSeparator, aName.
 	(self fileExists: fileName) ifTrue: [ GRError new signal: 'A (temporary) file with name ', aName, ' already exists.' ].
 	^ (GsFile openWriteOnServer: fileName) pathName