--- a/FindFileApplication.st	Fri May 14 22:18:28 2004 +0200
+++ b/FindFileApplication.st	Sat May 15 02:52:04 2004 +0200
@@ -1146,7 +1146,12 @@
                     ].
                     (idxInList := fileSizesToSearchFor indexOf:fileSize) ~~ 0 ifTrue:[
                         fileMD5 isNil ifTrue:[
+OpenError handle:[:ex |
+    ObjectMemory garbageCollect.
+    fileMD5 := MD5Stream hashValueOfFile:f.
+] do:[
                             fileMD5 := MD5Stream hashValueOfFile:f.
+].
                             remember ifTrue:[
                                 cacheLine at:2 put:fileMD5
                             ].
@@ -1464,5 +1469,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.47 2004-05-14 20:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.48 2004-05-15 00:52:04 cg Exp $'
 ! !