diff -r b357cb31cc87 -r a20cb6fcb74b FileOperation.st
--- a/FileOperation.st	Mon Mar 22 23:00:36 2004 +0100
+++ b/FileOperation.st	Mon Mar 22 23:01:08 2004 +0100
@@ -202,7 +202,7 @@
 !FileOperation::Copy class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.45 2004-03-22 19:33:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.46 2004-03-22 22:01:08 cg Exp $'
 ! !
 
 !FileOperation::Copy methodsFor:'accessing'!
@@ -409,7 +409,7 @@
 !FileOperation::Create class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.45 2004-03-22 19:33:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.46 2004-03-22 22:01:08 cg Exp $'
 ! !
 
 !FileOperation::Create methodsFor:'accessing'!
@@ -682,7 +682,7 @@
 !FileOperation::Delete class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.45 2004-03-22 19:33:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.46 2004-03-22 22:01:08 cg Exp $'
 ! !
 
 !FileOperation::Delete methodsFor:'actions'!
@@ -876,7 +876,7 @@
 !FileOperation::Move class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.45 2004-03-22 19:33:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.46 2004-03-22 22:01:08 cg Exp $'
 ! !
 
 !FileOperation::Move methodsFor:'accessing'!
@@ -964,7 +964,7 @@
 
 moveFiles:aColOfSourceFiles to:aDirectory withOverWriteWarning:overWriteWarning moveFileIfSame:move
 
-    |newFile suffix fileString askResult|
+    |newFile suffix fileString doMove|
 
     (aDirectory exists) ifFalse:[
         Dialog warn:('Cannot move to non-existing directory %1.' bindWith:aDirectory asString allBold).
@@ -978,8 +978,9 @@
     ].
     aColOfSourceFiles do:[: filename |
         newFile := aDirectory construct:filename baseName.
+
+        doMove := true.
         (newFile exists) ifTrue:[
-            askResult := true.
             ((newFile asString = filename asString) and:[move]) ifTrue:[
                 [newFile exists] whileTrue:[
                     suffix := newFile suffix.
@@ -988,8 +989,8 @@
                 ].
             ] ifFalse:[
                 overWriteWarning ifTrue:[
-                    askResult := self fileExistDialogForNewFile:newFile oldFile:filename withCancel:(aColOfSourceFiles size > 1).
-                    askResult isNil ifTrue:[
+                    doMove := self fileExistDialogForNewFile:newFile oldFile:filename withCancel:(aColOfSourceFiles size > 1).
+                    doMove isNil ifTrue:[
                         result := false.
                         ^ self.
                     ]
@@ -997,7 +998,7 @@
             ].
         ].
 
-        askResult ifTrue:[
+        doMove ifTrue:[
             Error handle:[:ex|
                 "was not able to copy it"
                 result := false.
@@ -1046,7 +1047,7 @@
 !FileOperation::Rename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.45 2004-03-22 19:33:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.46 2004-03-22 22:01:08 cg Exp $'
 ! !
 
 !FileOperation::Rename methodsFor:'accessing'!
@@ -1152,5 +1153,5 @@
 !FileOperation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.45 2004-03-22 19:33:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileOperation.st,v 1.46 2004-03-22 22:01:08 cg Exp $'
 ! !