--- a/FindFileApplication.st	Tue Oct 19 20:42:49 2004 +0200
+++ b/FindFileApplication.st	Wed Oct 20 19:26:30 2004 +0200
@@ -611,6 +611,8 @@
     |sel files result|
 
     sel := self selectionHolder value.
+    sel isEmptyOrNil ifTrue:[^ self].
+
     files := sel collect:[:idx | self shownList at:idx].
     self deleteFiles:files confirm:true.
     result == true ifTrue:[
@@ -1618,5 +1620,5 @@
 !FindFileApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.64 2004-10-19 17:08:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FindFileApplication.st,v 1.65 2004-10-20 17:26:30 cg Exp $'
 ! !