diff --git a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
index 1207150a..9207976d 100644
--- a/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
+++ b/repository/Grease-Squeak5-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -1,8 +1,8 @@
-as yet unclassified
+files
 writeFileStreamOn: aString do: aBlock binary: aBoolean 
 	| stream |
 	stream := aBoolean
-				ifTrue: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]
-				ifFalse: [ (FileStream fileNamed: aString) binary ].
+				ifTrue: [ (FileStream fileNamed: aString) binary ]
+				ifFalse: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ].
 	[ aBlock value: stream ]
 		ensure: [ stream close ]
\ No newline at end of file
diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
index 1207150a..9207976d 100644
--- a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
+++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/writeFileStreamOn.do.binary..st
@@ -1,8 +1,8 @@
-as yet unclassified
+files
 writeFileStreamOn: aString do: aBlock binary: aBoolean 
 	| stream |
 	stream := aBoolean
-				ifTrue: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ]
-				ifFalse: [ (FileStream fileNamed: aString) binary ].
+				ifTrue: [ (FileStream fileNamed: aString) binary ]
+				ifFalse: [ (MultiByteFileStream fileNamed: aString) ascii; wantsLineEndConversion: true; yourself ].
 	[ aBlock value: stream ]
 		ensure: [ stream close ]
\ No newline at end of file