--- a/FileOperation.st	Tue May 13 16:05:53 2003 +0200
+++ b/FileOperation.st	Tue May 13 16:06:38 2003 +0200
@@ -202,7 +202,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.32 2003-04-07 17:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.33 2003-05-13 14:06:38 penk Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -406,7 +406,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.32 2003-04-07 17:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.33 2003-05-13 14:06:38 penk Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -673,7 +673,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.32 2003-04-07 17:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.33 2003-05-13 14:06:38 penk Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -844,7 +844,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.32 2003-04-07 17:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.33 2003-05-13 14:06:38 penk Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -1014,7 +1014,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.32 2003-04-07 17:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.33 2003-05-13 14:06:38 penk Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1056,7 +1056,8 @@
     OperatingSystem errorSignal handle:[:ex|
         msg := ('Cannot rename file ', old baseName,' to ', newName,' !!'), '\\(' ,(OperatingSystem lastErrorString) , ')'.
         Dialog warn:msg withCRs.
-        result := false
+        result := false.
+        ^ self.
     ] do:[
         new exists ifTrue:[
             (Dialog confirm:(new baseName allBold, ' already exists - rename (i.e. overwrite) anyway ?'))
@@ -1097,7 +1098,7 @@
                     result := true
                 ].
                 lastOldName := oldName.
-                lastNewName := newName
+                lastNewName := newName.
             ].
         queryBox showAtPointer.
     ]
@@ -1106,5 +1107,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.32 2003-04-07 17:42:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.33 2003-05-13 14:06:38 penk Exp $'
 ! !