--- a/FileOperation.st	Thu Jan 09 15:42:09 2003 +0100
+++ b/FileOperation.st	Thu Jan 09 15:42:45 2003 +0100
@@ -205,7 +205,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.16 2003-01-09 14:42:45 penk Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -409,7 +409,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.16 2003-01-09 14:42:45 penk Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -645,7 +645,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.16 2003-01-09 14:42:45 penk Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -689,7 +689,10 @@
         |filename answer doDelete|
 
         filename := filenameOrString asFilename.
-
+        filename exists not ifTrue:[ 
+            self warn:('%1 do not exist' bindWith:filename asString allBold).
+            ^ self.
+        ].
         ask ifTrue:[
             size = 1 ifTrue:[
                 labels := #('Yes' 'No' 'Cancel').
@@ -806,7 +809,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.16 2003-01-09 14:42:45 penk Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -975,7 +978,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.16 2003-01-09 14:42:45 penk Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1060,5 +1063,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.15 2002-12-28 14:53:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.16 2003-01-09 14:42:45 penk Exp $'
 ! !