--- a/ZipArchive.st	Mon Jul 09 15:11:26 2001 +0200
+++ b/ZipArchive.st	Fri Aug 17 14:46:04 2001 +0200
@@ -14,26 +14,26 @@
 "{ Package: 'stx:libbasic2' }"
 
 Object subclass:#ZipArchive
-        instanceVariableNames:'file mode archiveName firstEntry lastEntry
-                recentlyExtractedEntries'
-        classVariableNames:'RecentlyUsedZipArchives FlushBlock ECREC_SIZE LREC_SIZE CREC_SIZE
-                SIZE_CENTRAL_DIRECTORY TOTAL_ENTRIES_CENTRAL_DIR
-                C_COMPRESSED_SIZE C_RELATIVE_OFFSET_LOCAL_HEADER
-                C_FILENAME_LENGTH C_UNCOMPRESSED_SIZE C_CENTRALHEADERSIGNATURE
-                C_LOCALHEADERSIGNATURE C_CENTRALENDSIGNATURE
-                ZipFileFormatErrorSignal COMPR_STORED COMPR_SHRUNK COMPR_REDUCED1
-                COMPR_REDUCED2 COMPR_REDUCED3 COMPR_REDUCED4 COMPR_IMPLODED
-                COMPR_TOKENIZED COMPR_DEFLATED'
-        poolDictionaries:''
-        category:'System-Support-FileFormats'
+	instanceVariableNames:'file mode archiveName firstEntry lastEntry
+		recentlyExtractedEntries'
+	classVariableNames:'RecentlyUsedZipArchives FlushBlock ECREC_SIZE LREC_SIZE CREC_SIZE
+		SIZE_CENTRAL_DIRECTORY TOTAL_ENTRIES_CENTRAL_DIR
+		C_COMPRESSED_SIZE C_RELATIVE_OFFSET_LOCAL_HEADER
+		C_FILENAME_LENGTH C_UNCOMPRESSED_SIZE C_CENTRALHEADERSIGNATURE
+		C_LOCALHEADERSIGNATURE C_CENTRALENDSIGNATURE
+		ZipFileFormatErrorSignal COMPR_STORED COMPR_SHRUNK COMPR_REDUCED1
+		COMPR_REDUCED2 COMPR_REDUCED3 COMPR_REDUCED4 COMPR_IMPLODED
+		COMPR_TOKENIZED COMPR_DEFLATED'
+	poolDictionaries:''
+	category:'System-Support-FileFormats'
 !
 
 Object subclass:#ZipMember
-        instanceVariableNames:'next dataStart compressed_size uncompressed_size name crc32
-                compression_method data'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:ZipArchive
+	instanceVariableNames:'next dataStart compressed_size uncompressed_size name crc32
+		compression_method data'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:ZipArchive
 !
 
 !ZipArchive primitiveDefinitions!
@@ -1325,7 +1325,9 @@
         ] ifFalse:[
             file := fn writeStream
         ].
-	file ifNotNil:[ file binary ]
+        file notNil ifTrue:[ 
+            file binary 
+        ]
     ].
 
     "Created: / 30.3.1998 / 18:18:48 / cg"
@@ -1737,6 +1739,6 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.34 2001-02-09 12:51:54 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.35 2001-08-17 12:46:04 cg Exp $'
 ! !
 ZipArchive initialize!