--- a/ZipArchive.st	Fri Aug 16 14:39:29 2013 +0200
+++ b/ZipArchive.st	Fri Aug 16 16:32:49 2013 +0200
@@ -3003,6 +3003,9 @@
 flush
     "forget about cached zipArchives"
 
+    FlushBlock notNil ifTrue:[
+        Processor removeTimedBlock:FlushBlock.
+    ].
     RecentlyUsedZipArchives := nil. FlushBlock := nil.
 
     "
@@ -3014,11 +3017,9 @@
     "forget about cached zipArchives"
 
     FlushBlock isNil ifTrue:[
-        FlushBlock := [ RecentlyUsedZipArchives := nil. FlushBlock := nil. ].
-    ] ifFalse:[
-        Processor removeTimedBlock:FlushBlock.
+        FlushBlock := [RecentlyUsedZipArchives := nil. FlushBlock := nil].
     ].
-    Processor addTimedBlock:FlushBlock for:nil afterSeconds:60.
+    Processor addTimedBlock:FlushBlock for:Processor timeoutHandlerProcess afterSeconds:60.
 
     "
      self installFlushBlock
@@ -5178,11 +5179,11 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.109 2013-08-10 11:26:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.110 2013-08-16 14:32:49 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.109 2013-08-10 11:26:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.110 2013-08-16 14:32:49 stefan Exp $'
 ! !