--- a/DirectoryTreeBrowser.st	Wed Mar 19 23:12:16 2003 +0100
+++ b/DirectoryTreeBrowser.st	Thu Mar 20 01:39:00 2003 +0100
@@ -1298,11 +1298,13 @@
                     alreadyAccepted := true.
 
                     filename := item fileName.
-                    newFileString := x at:1.
+                    newFileString := x asString.
                     filename baseName ~= newFileString ifTrue:[ 
                         (self renameFile:filename to:newFileString update:false) ifTrue:[ 
                             newFilename := filename directory construct:newFileString.
-                            self updateAndSelect:(OrderedCollection with:newFilename).
+                            self withWaitCursorDo:[
+                                self updateAndSelect:(OrderedCollection with:newFilename).
+                            ]
                         ].
                     ].
                     aGC closeEditor.
@@ -1395,5 +1397,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.51 2003-03-19 22:12:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.52 2003-03-20 00:39:00 cg Exp $'
 ! !