temporary files should be binary and opened in append mode, otherwise…

… we cannot stream write to them
SeasideSt · Mar 10, 2024 · 6925522 · 6925522
1 parent c854800
commit 6925522
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/.../Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st b/.../Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/newTemporaryFileNamed..st
@@ -4,4 +4,4 @@ newTemporaryFileNamed: aName
 	| fileName |
 	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
+	^ (GsFile open: fileName mode: 'ab' onClient: false) pathName