--- a/FileBrowser.st	Tue Sep 25 18:35:10 2001 +0200
+++ b/FileBrowser.st	Tue Sep 25 19:05:56 2001 +0200
@@ -6143,6 +6143,7 @@
         ].
         old renameTo:new.
     ].
+
     self updateCurrentDirectory
     "/ self updateCurrentDirectoryIfChanged.
 
@@ -6860,7 +6861,7 @@
     "
 
     self withReadCursorDo:[
-        |files matchPattern list passDone f ignoreCase|
+        |files matchPattern list passDone f ignoreCase oldSelection newSelection|
 
         self stopUpdateProcess.
 
@@ -6963,7 +6964,11 @@
                     entry colAt:2 put:fileName.
                 ].
 
+        oldSelection := fileListView selectionValue.
         fileListView setList:list expandTabs:false.
+        newSelection := oldSelection collect:[:nm | list indexOf:nm].
+        fileListView selectWithoutScroll:newSelection.
+
         passDone := Array new:list size withAll:0.
 
         "
@@ -7338,5 +7343,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.418 2001-09-24 08:10:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.419 2001-09-25 17:05:56 cg Exp $'
 ! !