--- a/ZipArchive.st	Thu Dec 05 15:03:34 2019 +0100
+++ b/ZipArchive.st	Thu Dec 05 15:39:27 2019 +0100
@@ -3340,8 +3340,11 @@
         stream close.
         archiveName := nil.
         stream := centralDirectory := zipMembersByName := nil.
+        startOfArchive := endOfArchive := nil.
         firstEntry := lastEntry := nil.
     ].
+
+    "Modified: / 05-12-2019 / 15:23:23 / Stefan Vogel"
 !
 
 closePrepareForReopen
@@ -3352,7 +3355,10 @@
         self flush.
         stream close.
         stream := nil.
+        startOfArchive := endOfArchive := nil.
     ].
+
+    "Modified: / 05-12-2019 / 15:24:07 / Stefan Vogel"
 !
 
 flush
@@ -3463,12 +3469,14 @@
 
 reopenForReading
     stream isNil ifTrue:[
-	mode := #read.
-	stream := archiveName asFilename readStream.
-	stream binary
+        mode := #read.
+        stream := archiveName asFilename readStream.
+        stream binary.
+        self setDefaultArchiveBounds.
     ]
 
     "Created: / 21-11-2010 / 12:02:37 / cg"
+    "Modified: / 05-12-2019 / 15:19:59 / Stefan Vogel"
 !
 
 writingTo:aPositionableStream
@@ -3558,20 +3566,22 @@
     |fn|
 
     stream isNil ifTrue:[
-	fn := archiveName asFilename.
-	mode ~~ #write ifTrue:[
-	    mode == #append ifTrue:[
-		stream := fn readWriteStream.
-	    ] ifFalse:[
-		stream := fn readStream.
-	    ].
-	] ifFalse:[
-	    stream := fn writeStream
-	].
-	stream binary.
+        fn := archiveName asFilename.
+        mode ~~ #write ifTrue:[
+            mode == #append ifTrue:[
+                stream := fn readWriteStream.
+            ] ifFalse:[
+                stream := fn readStream.
+            ].
+        ] ifFalse:[
+            stream := fn writeStream
+        ].
+        stream binary.
+        self setDefaultArchiveBounds.
     ].
 
     "Modified: / 31-08-2010 / 12:40:41 / sr"
+    "Modified: / 05-12-2019 / 14:55:13 / Stefan Vogel"
 !
 
 setDefaultArchiveBounds