--- a/Filename.st	Tue Nov 14 20:02:34 1995 +0100
+++ b/Filename.st	Tue Nov 14 22:42:42 1995 +0100
@@ -33,7 +33,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.40 1995-11-14 11:18:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.41 1995-11-14 21:42:42 cg Exp $'
 !
 
 documentation
@@ -1287,6 +1287,7 @@
 
     |ok|
 
+    self exists ifFalse:[ ^ self].
     self isDirectory ifTrue:[
 	ok := OperatingSystem removeDirectory:nameString
     ] ifFalse:[