--- a/FileBrowser.st	Sun Jul 29 14:46:36 2001 +0200
+++ b/FileBrowser.st	Sun Jul 29 17:32:19 2001 +0200
@@ -2733,6 +2733,7 @@
             queryBox initialText:oldName.
         ].
         queryBox action:[:newName | 
+                            fileListView removeFromSelection:(fileList indexOf:oldName).
                             self doRename:oldName to:newName. 
                             lastOldName := oldName.
                             lastNewName := newName.
@@ -7301,5 +7302,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.412 2001-07-29 12:46:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.413 2001-07-29 15:32:19 cg Exp $'
 ! !