--- a/AbstractFileBrowser.st	Mon Mar 22 20:33:54 2004 +0100
+++ b/AbstractFileBrowser.st	Mon Mar 22 23:00:36 2004 +0100
@@ -17,7 +17,7 @@
 	classVariableNames:'DirectoryHistory RuntimeAspects DirectoryBookmarks
 		LastEnforcedNameSpace CommandHistory DefaultCommandPerSuffix
 		CommandHistorySize LastFileDiffFile DefaultFilters RootHolder
-		LastFileSelection'
+		LastFileSelection LastMoveDestination'
 	poolDictionaries:''
 	category:'Interface-Tools-File'
 !
@@ -3859,12 +3859,13 @@
 
     destinationDirectory := Dialog 
                                 requestDirectoryName:(resources at:'Move Selected Items To:') withCRs 
-                                default:(self currentDirectory)
+                                default:(LastMoveDestination ? self currentDirectory)
                                 ok:'Move'
                                 abort:nil.
     destinationDirectory isEmptyOrNil ifTrue:[^ self].
 
-    self moveFiles:(self currentFileNameHolder value deepCopy) to:destinationDirectory asFilename
+    LastMoveDestination := destinationDirectory.
+    self moveFiles:(self currentFileNameHolder value copy) to:destinationDirectory asFilename
 !
 
 newDirectory
@@ -4980,7 +4981,8 @@
                                             f1 -> f2
                                         ]
                                 ].
-        result sort:[:f1 :f2 | f2 value < f1 value].
+        "/ result sort:[:f1 :f2 | f1 key > f2 key "f2 value < f1 key value"].
+        result sort:[:f1 :f2 | " f1 key > f2 key" f2 value < f1 key value].
 
         info := OrderedCollection new.
         size := self getBestDirectory asString size.
@@ -6717,5 +6719,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.225 2004-03-20 15:02:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.226 2004-03-22 22:00:36 cg Exp $'
 ! !