GsDevKit · jbrichau · Feb 14, 2021 · May 21, 2020 · May 23, 2020 · May 23, 2020
diff --git a/.travis.yml b/.travis.yml
@@ -45,7 +45,3 @@ matrix:
       env: BUILD_NAME=GemStone-3.1.0.6
     - smalltalk: GemStone-2.4.8
       env: BUILD_NAME=GemStone-2.4.8
-
-notifications:
-  slack: gemtalksystems:4YWbzy6sJN9cE0FhxvUPP8nS
-
diff --git a/README.md b/README.md
@@ -20,12 +20,12 @@ The latest Grease version is supported on the following platforms and versions,
 
 | Squeak          | Pharo            | GemStone             |
 | --------------- | ---------------- | -------------------- |
-| [![Build status: Squeak-5.2](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Squeak-trunk&label=5.2)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Pharo64-8.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-8.0&label=8.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.5.2](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.5.2&label=3.5.2)](http://travis-ci.org/SeasideSt/Grease) |
-| [![Build status: Squeak-5.1](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Squeak-5.1&label=5.1)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Pharo64-7.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-7.0&label=7.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.4.5](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.4.5&label=3.4.5)](http://travis-ci.org/SeasideSt/Grease) |
-|                 | [![Build status: Pharo-6.1](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-6.1&label=6.1)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.3.9](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.3.9&label=3.3.9)](http://travis-ci.org/SeasideSt/Grease) |
-|                 | [![Build status: Pharo-5.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-5.0&label=5.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.2.17](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.2.17&label=3.2.17)](http://travis-ci.org/SeasideSt/Grease) |
-|                 | [![Build status: Pharo-4.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-4.0&label=4.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.1.0.6](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.1.0.6&label=3.1.0.6)](http://travis-ci.org/SeasideSt/Grease) |
-|                 |                  | [![Build status: Gemstone-2.4.8](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-2.4.8&label=2.4.8)](http://travis-ci.org/SeasideSt/Grease) |
+| [![Build status: Squeak-5.2](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Squeak-trunk&label=5.2)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Pharo64-9.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-9.0&label=9.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.5.2](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.5.2&label=3.5.2)](http://travis-ci.org/SeasideSt/Grease) |
+| [![Build status: Squeak-5.1](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Squeak-5.1&label=5.1)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Pharo64-8.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-8.0&label=8.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.4.5](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.4.5&label=3.4.5)](http://travis-ci.org/SeasideSt/Grease) |
+|                 | [![Build status: Pharo64-7.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo64-7.0&label=7.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.3.9](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.3.9&label=3.3.9)](http://travis-ci.org/SeasideSt/Grease) |
+|                 | [![Build status: Pharo-6.1](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-6.1&label=6.1)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.2.17](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.2.17&label=3.2.17)](http://travis-ci.org/SeasideSt/Grease) |
+|                 | [![Build status: Pharo-5.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-5.0&label=5.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-3.1.0.6](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-3.1.0.6&label=3.1.0.6)](http://travis-ci.org/SeasideSt/Grease) |
+|                 | [![Build status: Pharo-4.0](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=Pharo-4.0&label=4.0)](http://travis-ci.org/SeasideSt/Grease) | [![Build status: Gemstone-2.4.8](http://badges.herokuapp.com/travis/SeasideSt/Grease?branch=master&env=BUILD_NAME=GemStone-2.4.8&label=2.4.8)](http://travis-ci.org/SeasideSt/Grease) |
 
 Coveralls (experimental): [![Coverage Status](https://coveralls.io/repos/github/SeasideSt/Grease/badge.svg?branch=test-coveralls)](https://coveralls.io/github/SeasideSt/Grease?branch=test-coveralls)
 

diff --git a/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st b/repository/BaselineOfGrease.package/BaselineOfGrease.class/instance/baselineGemStone..st
@@ -34,15 +34,13 @@ baselineGemStone: spec
         package: 'Grease-Tests-Core'
           with: [ 
               spec
-                requires: #('Grease-GemStone-Core');
-                includes: #('Grease-Tests-GemStone-Core') ];
+                requires: #('Grease-GemStone-Core') ];
         package: 'Grease-GemStone-Core'
           with: [ 
               spec
                 requires:
-                  #('Grease-Core' 'GsCore' 'System-Digital-Signatures' 'UTF8' 'SMTPMail') ];
-        package: 'Grease-Tests-GemStone-Core'
-          with: [ spec requires: #('Grease-Tests-Core') ] ].
+                  #('Grease-Core' 'GsCore' 'System-Digital-Signatures' 'UTF8' 'SMTPMail') ] ].
+
   spec
     for: #'gs2.x'
     do: [ 
@@ -89,9 +87,20 @@ baselineGemStone: spec
               spec
                 requires: #('Grease-GemStone-Core');
                 postLoadDoIt: #'initializeLatin1ToUtf8Encodings' ] ].
+
+	spec for: #(#'gs2.x' #'gs3.0.x' #'gs3.1.x') 
+		do:[
+	      spec
+        package: 'Grease-Tests-GemStone-Core'
+		    with:[ spec requires: 'Grease-Tests-Core' ];
+		  package: 'Grease-Tests-Core'
+        	 with: [ spec includes: 'Grease-Tests-GemStone-Core' ] ].
+
   spec
     for: #(#'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' #'gs3.6.x')
     do: [ 
       spec
-        package: 'Grease-Tests-GemStone-Core'
-        with: [ spec file: 'Grease-Tests-GemStone-Core.v32' ] ]
+        package: 'Grease-Tests-GemStone32-Core'
+		    with:[ spec requires: 'Grease-Tests-Core' ];
+		  package: 'Grease-Tests-Core'
+        	 with: [ spec includes: 'Grease-Tests-GemStone32-Core' ] ]
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/fileStreamOn.do.binary..st
@@ -1,3 +1,6 @@
 file library
 fileStreamOn: aString do: aBlock binary: aBoolean
-	self subclassResponsibility 
+	self 
+		greaseDeprecatedApi: 'GRPlatform>>#fileStreamOn:do:binary:'
+		details: 'Use readFileStreamOn:do:binary:'.
+	^ self readFileStreamOn: aString do: aBlock binary: aBoolean
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -0,0 +1,3 @@
+file library
+readFileStreamOn: aString do: aBlock binary: aBoolean
+	self subclassResponsibility 
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st b/repository/Grease-Core.package/GRPlatform.class/instance/thisContext.st
@@ -2,7 +2,7 @@ processes
 thisContext
 	"Answer the current activation of a method execution or block activation.
 
-	For dialects with a thisContext variable and implementation can lock like this.
+	For dialects with a thisContext variable and implementation can look like this.
 
 	^ thisContext sender"
 	self subclassResponsibility
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Core.package/GRPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,3 @@
+file library
+writeFileStreamOn: aString do: aBlock binary: aBoolean
+	self subclassResponsibility 
diff --git a/repository/Grease-Core.package/monticello.meta/categories.st b/repository/Grease-Core.package/monticello.meta/categories.st
@@ -1,5 +1,5 @@
 SystemOrganization addCategory: #'Grease-Core'!
-SystemOrganization addCategory: #'Grease-Core-Collections'!
-SystemOrganization addCategory: #'Grease-Core-Exceptions'!
-SystemOrganization addCategory: #'Grease-Core-Text'!
-SystemOrganization addCategory: #'Grease-Core-Utilities'!
+SystemOrganization addCategory: 'Grease-Core-Collections'!
+SystemOrganization addCategory: 'Grease-Core-Exceptions'!
+SystemOrganization addCategory: 'Grease-Core-Text'!
+SystemOrganization addCategory: 'Grease-Core-Utilities'!
diff --git a/...Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st b/...Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/fileStreamOn.do.binary..st
diff --git a/...se-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st b/...se-GemStone-Core.package/GRGemStonePlatform.class/instance/readFileStreamOn.do.binary..st
@@ -0,0 +1,13 @@
+file-library
+readFileStreamOn: aString do: aBlock binary: aBoolean
+  | stream dir file |
+  [ 
+  file := GsFile openReadOnServer: aString.
+  [ 
+  stream := RWBinaryOrTextStream on: file contents.
+  aBoolean
+    ifTrue: [ stream binary ]
+    ifFalse: [ stream ascii ].
+  ^ aBlock value: stream ]
+    ensure: [ stream close ] ]
+    ensure: [ file close ]
diff --git a/.../Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st b/.../Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/write.toFile.inFolder..st
@@ -1,12 +1,13 @@
 file-library
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
-	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
-	| folder stream fullFilePath |
-	fullFilePath := ServerFileDirectory default fullNameFor: aFolderString.
-	folder := ServerFileDirectory on: fullFilePath.
-	stream := folder forceNewFileNamed: aFileNameString.
-	stream := aStringOrByteArray isString
-		ifTrue: [ stream ascii ]
-		ifFalse: [ stream binary ].
-	[ stream nextPutAll: aStringOrByteArray ]
-		ensure: [ stream close ]
+  "writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
+
+  | folder fullFilePath |
+  fullFilePath := ServerFileDirectory default fullNameFor: aFolderString.
+  folder := ServerFileDirectory on: fullFilePath.
+  (folder fileExists: aFileNameString)
+    ifTrue: [ folder deleteFileNamed: aFileNameString ].
+  ^ self
+    writeFileStreamOn: (folder / aFileNameString) fullName
+    do: [ :stream | stream nextPutAll: aStringOrByteArray ]
+    binary: aStringOrByteArray isString not
diff --git a/...e-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st b/...e-GemStone-Core.package/GRGemStonePlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,9 @@
+file-library
+writeFileStreamOn: fileName do: aBlock binary: isBinary
+  | stream |
+  stream := BinaryOrTextFile open: fileName mode: 'w+b' onClient: false.
+  stream := isBinary
+    ifTrue: [ stream binary ]
+    ifFalse: [ stream ascii ].
+  [ aBlock value: stream ]
+    ensure: [ stream close ]
diff --git a/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json b/repository/Grease-GemStone-Core.package/Symbol.extension/properties.json
@@ -1,3 +1,2 @@
 {
-	"name" : "Symbol"
-}
+	"name" : "Symbol" }
diff --git a/...Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/...Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -0,0 +1,7 @@
+file library
+readFileStreamOn: aString do: aBlock binary: aBoolean
+	"Line end conversion is no longer done for ascii... TBD!"
+
+	^ aBoolean
+		ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ]
+		ifFalse: [ aString asFileReference readStreamEncoded: 'ascii' do: aBlock ]
diff --git a/...tory/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/...tory/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st
@@ -1,15 +1,8 @@
 file library
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
 	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
-	| folder stream fullFilePath |
-	folder := FileSystem disk resolveString: aFolderString.
-	fullFilePath := (folder / aFileNameString) asFileReference.
-	stream := aStringOrByteArray isString
-		ifTrue: [
-			(MultiByteFileStream forceNewFileNamed: fullFilePath fullName)
-				ascii;
-				wantsLineEndConversion: true;
-				yourself ]
-		ifFalse: [ (FileStream forceNewFileNamed: fullFilePath fullName) binary ].
-	[ stream nextPutAll: aStringOrByteArray ]
-		ensure: [ stream close ]
+	"TODO: wantsLineEndConversion: true; ??"
+	^ self
+		writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString
+		do: [ :stream | stream nextPutAll: aStringOrByteArray ]
+		binary: aStringOrByteArray isString not
diff --git a/...rease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/...rease-Pharo70-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,5 @@
+file library
+writeFileStreamOn: aString do: aBlock binary: aBoolean
+	^ aBoolean
+		ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]
+		ifFalse: [ aString asFileReference writeStreamEncoded: 'ascii' do: aBlock ]
diff --git a/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st b/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/contentsOfFile.binary..st
@@ -1,3 +1,3 @@
 file library
 contentsOfFile: aString binary: aBoolean
-	^ self fileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
+	^ self readFileStreamOn: aString do: [ :stream | stream contents ] binary: aBoolean
diff --git a/...ory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/...ory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st
diff --git a/...Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st b/...Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/readFileStreamOn.do.binary..st
@@ -0,0 +1,6 @@
+file library
+readFileStreamOn: aString do: aBlock binary: aBoolean
+
+	^ aBoolean
+		ifTrue: [ aString asFileReference binaryReadStreamDo: aBlock ]
+		ifFalse: [ aString asFileReference readStreamEncoded: 'ascii' do: aBlock ]
diff --git a/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/...tory/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st
@@ -1,15 +1,7 @@
 file library
 write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
 	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
-	| folder stream fullFilePath |
-	folder := FileSystem disk resolveString: aFolderString.
-	fullFilePath := (folder / aFileNameString) asFileReference.
-	stream := aStringOrByteArray isString
-		ifTrue: [
-			(MultiByteFileStream forceNewFileNamed: fullFilePath fullName)
-				ascii;
-				wantsLineEndConversion: true;
-				yourself ]
-		ifFalse: [ (FileStream forceNewFileNamed: fullFilePath fullName) binary ].
-	[ stream nextPutAll: aStringOrByteArray ]
-		ensure: [ stream close ]
+	^ self
+		writeFileStreamOn: (aFolderString asFileReference / aFileNameString) ensureDelete pathString
+		do: [ :stream | stream nextPutAll: aStringOrByteArray ]
+		binary: aStringOrByteArray isString not
diff --git a/...rease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st b/...rease-Pharo90-Core.package/GRPharoPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,5 @@
+file library
+writeFileStreamOn: aString do: aBlock binary: aBoolean
+	^ aBoolean
+		ifTrue: [ aString asFileReference binaryWriteStreamDo: aBlock ]
+		ifFalse: [ aString asFileReference writeStreamEncoded: 'ascii' do: [ :str | aBlock value: (ZnNewLineWriterStream on: str) ] ]
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/initialize.st
@@ -1,5 +1,4 @@
 class initialization
 initialize
 	self initializeXmlTable.
-	self initializeUrlTable.
-	self select
+	self initializeUrlTable
diff --git a/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/unload.st b/repository/Grease-Squeak5-Core.package/GRPharoPlatform.class/class/unload.st
diff --git a/...ory/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st b/...ory/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/fileStreamOn.do.binary..st
diff --git a/...tory/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st b/...tory/Grease-Squeak5-Core.package/GRPharoPlatform.class/instance/write.toFile.inFolder..st
diff --git a/...ry/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st b/...ry/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/fileStreamOn.do.binary..st
diff --git a/...class/instance/fileStreamOn.do.binary..st → ...s/instance/readFileStreamOn.do.binary..st b/...class/instance/fileStreamOn.do.binary..st → ...s/instance/readFileStreamOn.do.binary..st
@@ -1,5 +1,5 @@
-file library
-fileStreamOn: aString do: aBlock binary: aBoolean
+as yet unclassified
+readFileStreamOn: aString do: aBlock binary: aBoolean
 	^ aBoolean
 		ifTrue: [
 			FileStream fileNamed: aString do: [ :stream |

diff --git a/...ory/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st b/...ory/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/write.toFile.inFolder..st
@@ -1,15 +1,11 @@
 file library
-write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString
-	"writes aStringOrByteArray to a file named aFilenameString in the folder aFolderString"
-	| folder stream fullFilePath |
-	folder := FileDirectory default directoryNamed: aFolderString.
-	fullFilePath := folder fullNameFor: aFileNameString.
-	stream := aStringOrByteArray isString
-		ifTrue: [		
-			(MultiByteFileStream forceNewFileNamed: fullFilePath)
-				ascii;
-				wantsLineEndConversion: true;
-				yourself ]
-		ifFalse: [ (FileStream forceNewFileNamed: fullFilePath) binary ].
-	[ stream nextPutAll: aStringOrByteArray ]
-		ensure: [ stream close ]
+write: aStringOrByteArray toFile: aFileNameString inFolder: aFolderString 
+	| folder fullFilePath |
+	fullFilePath := FileDirectory default fullNameFor: aFolderString.
+	folder := FileDirectory on: fullFilePath.
+	(folder fileExists: aFileNameString)
+		ifTrue: [folder deleteFileNamed: aFileNameString].
+	^ self
+		writeFileStreamOn: (folder / aFileNameString) fullName
+		do: [:stream | stream nextPutAll: aStringOrByteArray]
+		binary: aStringOrByteArray isString not
diff --git a/...ease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/...ease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -0,0 +1,8 @@
+as yet unclassified
+writeFileStreamOn: aString do: aBlock binary: aBoolean 
+	| stream |
+	stream := aBoolean
+				ifTrue: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]
+				ifFalse: [ (FileStream fileNamed: aString) binary ].
+	[ aBlock value: stream ]
+		ensure: [ stream close ]
diff --git a/...ance/testReadWriteToFileInFolderBinary.st → ...ance/testReadWriteToFileInFolderBinary.st b/...ance/testReadWriteToFileInFolderBinary.st → ...ance/testReadWriteToFileInFolderBinary.st
@@ -1,4 +1,4 @@
-tests
+tests-filestreams
 testReadWriteToFileInFolderBinary
 	| bytes |
 	bytes := #(80 104 39 110 103 108 117 105 32 109 103 108 119 39 110 97 102 104 32 67 116 104 117 108 104 117 32 82 39 108 121 101 104 32 119 103 97 104 39 110 97 103 108 32 102 104 116 97 103 110) asByteArray.

diff --git a/...stance/testReadWriteToFileInFolderText.st → ...stance/testReadWriteToFileInFolderText.st b/...stance/testReadWriteToFileInFolderText.st → ...stance/testReadWriteToFileInFolderText.st
@@ -1,4 +1,4 @@
-tests
+tests-filestreams
 testReadWriteToFileInFolderText
 	| text |
 	text := 'Ph''nglui mglw''nafh Cthulhu R''lyeh wgah''nagl fhtagn'.