--- a/DirectoryContentsBrowser.st	Mon Apr 05 10:33:46 2004 +0200
+++ b/DirectoryContentsBrowser.st	Mon Apr 05 11:43:10 2004 +0200
@@ -1442,7 +1442,10 @@
 updateListAfterDelete:colOfFiles
         (colOfFiles collect:[:eachFile | browserItemList findFirst:[:item | item fileName = eachFile]])
             sort reverse do:[:eachIndexToRemove |
-                 browserItemList removeIndex:eachIndexToRemove].
+                eachIndexToRemove ~~ 0 ifTrue:[
+                        browserItemList removeIndex:eachIndexToRemove
+                    ]
+                ].
 !
 
 viewPreviewChanged
@@ -3121,5 +3124,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.158 2004-03-24 15:02:45 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.159 2004-04-05 09:43:10 penk Exp $'
 ! !