--- a/ZipArchive.st	Thu Apr 09 13:50:19 1998 +0200
+++ b/ZipArchive.st	Thu Apr 09 14:00:34 1998 +0200
@@ -1110,14 +1110,14 @@
         FlushBlock := [ RecentlyUsedZipArchives := nil. FlushBlock := nil. ].
     ].
     Processor removeTimedBlock:FlushBlock.
-    Processor addTimedBlock:FlushBlock afterSeconds:60.
+    Processor addTimedBlock:FlushBlock for:nil afterSeconds:60.
 
     "
      self installFlushBlock
     "
 
     "Created: / 9.4.1998 / 13:17:07 / cg"
-    "Modified: / 9.4.1998 / 13:19:50 / cg"
+    "Modified: / 9.4.1998 / 14:00:26 / cg"
 !
 
 lowSpaceCleanup
@@ -1601,6 +1601,6 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.13 1998-04-09 11:50:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.14 1998-04-09 12:00:34 cg Exp $'
 ! !
 ZipArchive initialize!