--- a/ZipArchive.st	Tue Oct 18 18:53:34 2016 +0200
+++ b/ZipArchive.st	Wed Oct 19 08:12:29 2016 +0200
@@ -18,7 +18,7 @@
 Object subclass:#ZipArchive
 	instanceVariableNames:'file mode archiveName firstEntry lastEntry centralDirectory
 		startOfArchive endOfArchive zipMembersByName appendTrailingSlash'
-	classVariableNames:'Lobby RecentlyUsedZipArchives FlushBlock ZipFileFormatErrorSignal
+	classVariableNames:'RecentlyUsedZipArchives FlushBlock ZipFileFormatErrorSignal
 		UnsupportedZipFileFormatErrorSignal DefaultAppendTrailingSlash'
 	poolDictionaries:'ZipArchiveConstants'
 	category:'System-Support-FileFormats'
@@ -2986,10 +2986,6 @@
         UnsupportedZipFileFormatErrorSignal notifierString:'unsupported zip file format'.
     ].
 
-    Lobby isNil ifTrue:[
-        Lobby := Registry new.
-    ].
-
     DefaultAppendTrailingSlash := true.
 
     "
@@ -3255,24 +3251,11 @@
     ZipFileFormatErrorSignal raiseErrorString:anErrorString.
 ! !
 
-!ZipArchive methodsFor:'finalization'!
-
-finalizationLobby
-    "answer the registry used for finalization."
-    ^ Lobby
-!
-
-finalize
-    "some Stream has been collected - close the file if not already done"
-    self closeFile
-! !
-
 !ZipArchive methodsFor:'open & close'!
 
 close
     file notNil ifTrue:[
         self flush.
-        Lobby unregister:self.
         self closeFile.
     ]
 !
@@ -3476,7 +3459,6 @@
             file := fn writeStream
         ].
         file binary.
-        Lobby register:self.
     ].
 
     "Modified: / 31-08-2010 / 12:40:41 / sr"