--- a/ZipArchive.st	Tue Jan 23 10:54:42 2001 +0100
+++ b/ZipArchive.st	Wed Jan 24 13:39:32 2001 +0100
@@ -1296,7 +1296,7 @@
     archiveName := nm asFilename name.
     mode := m.
 
-    mode == #read ifTrue:[
+    mode ~~ #write ifTrue:[
 	self openFile.
 	self readDirectory.
 	self closeFile.
@@ -1315,11 +1315,12 @@
 
 openFile
     file isNil ifTrue:[
-	mode == #read ifTrue:[
-	    file := archiveName asFilename readStream binary.
+	mode ~~ #write ifTrue:[
+	    file := archiveName asFilename readStream.
 	] ifFalse:[
-	    file := archiveName asFilename writeStream binary
-	]
+	    file := archiveName asFilename writeStream
+	].
+	file binary
     ].
 
     "Created: / 30.3.1998 / 18:18:48 / cg"
@@ -1731,6 +1732,6 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.31 2000-12-18 13:33:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.32 2001-01-24 12:39:32 cg Exp $'
 ! !
 ZipArchive initialize!