--- a/ZipArchive.st	Tue Apr 07 15:09:42 1998 +0200
+++ b/ZipArchive.st	Tue Apr 07 18:00:50 1998 +0200
@@ -76,20 +76,21 @@
 !
 
 oldFileNamed:name
-    |zar f|
+    |zar f fn|
 
-    f := name asFilename.
     RecentlyUsedZipArchives isNil ifTrue:[
         RecentlyUsedZipArchives := OrderedCollection new
     ].
+    f := name asFilename.
+    fn := f pathName.
     RecentlyUsedZipArchives keysAndValuesDo:[:i :z |
-        z name = name ifTrue:[
+        z name = fn ifTrue:[
             RecentlyUsedZipArchives removeIndex:i.
             RecentlyUsedZipArchives addLast:z.
             ^ z
         ].
     ].
-    zar := self new name:f mode:#read.
+    zar := self new name:fn mode:#read.
     RecentlyUsedZipArchives add:zar.
     [RecentlyUsedZipArchives size > 5] whileTrue:[
         RecentlyUsedZipArchives removeFirst
@@ -97,7 +98,7 @@
     ^ zar
 
     "Created: / 29.3.1998 / 17:46:09 / cg"
-    "Modified: / 7.4.1998 / 14:32:24 / cg"
+    "Modified: / 7.4.1998 / 17:58:14 / cg"
 ! !
 
 !ZipArchive class methodsFor:'class initialization'!
@@ -138,9 +139,15 @@
 !ZipArchive class methodsFor:'cleanup'!
 
 lowSpaceCleanup
+    "forget about cached zipArchives"
+
     RecentlyUsedZipArchives := nil
 
-    "Created: / 6.4.1998 / 12:36:37 / cg"
+    "
+     self lowSpaceCleanup
+    "
+
+    "Modified: / 7.4.1998 / 17:58:57 / cg"
 ! !
 
 !ZipArchive class methodsFor:'constants'!
@@ -538,6 +545,6 @@
 !ZipArchive class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.7 1998-04-07 13:09:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.8 1998-04-07 16:00:50 cg Exp $'
 ! !
 ZipArchive initialize!