--- a/FileOperation.st	Tue Aug 29 12:38:25 2006 +0200
+++ b/FileOperation.st	Tue Aug 29 12:58:50 2006 +0200
@@ -910,7 +910,7 @@
                                                             with:filename pathName allBold) 
                                         labels:( resources array:lbls )
                                         values:vals 
-                                        default:3.
+                                        default:(vals indexOf:true).
                             doDelete == nil ifTrue:[
                                 ^ self
                             ].
@@ -928,7 +928,7 @@
         ].
     ].
 
-    "Modified: / 29-08-2006 / 11:30:12 / cg"
+    "Modified: / 29-08-2006 / 12:56:37 / cg"
 ! !
 
 !FileOperation::Erase methodsFor:'actions'!
@@ -1339,5 +1339,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.72 2006-08-29 10:38:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.73 2006-08-29 10:58:50 cg Exp $'
 ! !