MCMczReader.st
changeset 483 58521a30b56f
parent 307 a3f30c59b670
child 522 50d3c41be619
--- a/MCMczReader.st	Wed Sep 07 14:08:35 2011 +0200
+++ b/MCMczReader.st	Wed Sep 07 15:04:18 2011 +0200
@@ -125,20 +125,22 @@
 !
 
 zip
-	zip ifNil:
-		[zip := ZipArchive new.
-		zip readFrom: stream].
-	^ zip
+        (zip isNil or:[zip fileSize == 0]) ifTrue:[
+            zip := ZipArchive readingFrom:stream
+        ].
+        ^ zip
+
+    "Modified: / 07-09-2011 / 14:55:18 / cg"
 ! !
 
 !MCMczReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.4 2011-08-20 12:21:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.5 2011-09-07 13:04:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.4 2011-08-20 12:21:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMczReader.st,v 1.5 2011-09-07 13:04:18 cg Exp $'
 !
 
 version_SVN