--- a/PCFilename.st	Thu Sep 21 18:21:30 2006 +0200
+++ b/PCFilename.st	Thu Sep 21 18:32:25 2006 +0200
@@ -352,7 +352,9 @@
      Redefined to delete any existing target-file first."
 
     newName asFilename exists ifTrue:[
-	newName asFilename delete
+        (self pathName sameAs:newName asFilename pathName) ifFalse:[
+            newName asFilename delete
+        ].
     ].
 
     ^ super renameTo:newName
@@ -361,7 +363,8 @@
      '\tmp\foo' asFilename renameTo:'\tmp\bar'
     "
 
-    "Modified: 20.1.1998 / 15:33:00 / md"
+    "Modified: / 20-01-1998 / 15:33:00 / md"
+    "Modified: / 21-09-2006 / 18:19:47 / cg"
 ! !
 
 !PCFilename methodsFor:'queries'!
@@ -812,5 +815,5 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.37 2006-09-18 09:48:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.38 2006-09-21 16:32:25 cg Exp $'
 ! !