Filename.st
branchjv
changeset 18640 358b275dced9
parent 18491 ab8788f4c932
parent 18637 2b83caba8463
child 18678 a9b30d72dff9
--- a/Filename.st	Fri Jul 24 08:09:56 2015 +0100
+++ b/Filename.st	Sat Jul 25 06:39:11 2015 +0200
@@ -3372,9 +3372,12 @@
     osName := self osNameForFile.
     (ok := OperatingSystem removeFile:osName) ifFalse:[
         linkInfo := self linkInfo.
-        (linkInfo notNil and:[linkInfo isDirectory]) ifTrue:[
+        linkInfo isNil ifTrue:[
+            "file does not exist - no error"
+            ^ self.
+        ] ifFalse:[linkInfo isDirectory ifTrue:[
             ok := OperatingSystem removeDirectory:osName
-        ].
+        ]].
         ok ifFalse:[
             self exists ifTrue:[
                 self removeError:self