--- a/DirectoryContentsBrowser.st	Thu Sep 15 12:22:12 2005 +0200
+++ b/DirectoryContentsBrowser.st	Fri Sep 16 01:35:06 2005 +0200
@@ -1488,6 +1488,8 @@
 !
 
 updateListAfterDelete:colOfFiles
+        colOfFiles size > 100 ifTrue:[^ self].
+
         (colOfFiles collect:[:eachFile | browserItemList findFirst:[:item | item fileName = eachFile]])
             sort reverse do:[:eachIndexToRemove |
                 eachIndexToRemove ~~ 0 ifTrue:[
@@ -3203,5 +3205,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.183 2005-08-05 10:43:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.184 2005-09-15 23:35:06 cg Exp $'
 ! !