# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1108503722 -3600
# Node ID d3f70a668435f5864cab1c39bf02605ee0c31c86
# Parent  bb4a76c88ccad9cd309a6e1446d7a8e79368e00f
*** empty log message ***

diff -r bb4a76c88cca -r d3f70a668435 Filename.st
--- a/Filename.st	Tue Feb 15 20:36:30 2005 +0100
+++ b/Filename.st	Tue Feb 15 22:42:02 2005 +0100
@@ -2714,12 +2714,14 @@
      Raises an exception if not successful.
      Use #recursiveRemove in order to (recursively) remove non empty directories."
 
-    |ok|
-
-    (self linkInfo isDirectory) ifTrue:[
-        ok := OperatingSystem removeDirectory:(self osNameForFile)
+    |linkInfo osName ok|
+
+    osName := self osNameForFile.
+    linkInfo := self linkInfo.
+    (linkInfo notNil and:[linkInfo isDirectory]) ifTrue:[
+        ok := OperatingSystem removeDirectory:osName
     ] ifFalse:[
-        ok := OperatingSystem removeFile:(self osNameForFile)
+        ok := OperatingSystem removeFile:osName
     ].
     ok ifFalse:[
         self exists ifTrue:[
@@ -5041,7 +5043,7 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.286 2005-02-09 13:17:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.287 2005-02-15 21:42:02 cg Exp $'
 ! !
 
 Filename initialize!