Filename.st
changeset 3869 6d7dca488a41
parent 3868 24acb1228e12
child 3871 745482fed59a
--- a/Filename.st	Mon Oct 05 10:37:38 1998 +0200
+++ b/Filename.st	Mon Oct 05 10:38:06 1998 +0200
@@ -1084,6 +1084,8 @@
     s2 isNil ifTrue:[
         ^ self error:('cannot open %1 for reading' bindWith:aFilename asFilename name)
     ].
+    s1 binary.
+    s2 binary.
 
     [s1 atEnd] whileFalse:[
         n := s1 nextBytes:8192 into:buffer1 startingAt:1.
@@ -3138,6 +3140,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.141 1998-10-05 08:37:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.142 1998-10-05 08:38:06 cg Exp $'
 ! !
 Filename initialize!