--- a/FileBrowser.st	Sat May 25 13:29:51 1996 +0200
+++ b/FileBrowser.st	Sat May 25 13:32:05 1996 +0200
@@ -1714,11 +1714,11 @@
         ].
     ] valueNowOrOnUnwindDo:[
         lockUpdate := false.
-        fileListView deselect.
+        fileListView setSelection:nil.
         self updateCurrentDirectory.
     ]
 
-    "Modified: 21.2.1996 / 01:21:35 / cg"
+    "Modified: 25.5.1996 / 13:02:51 / cg"
 !
 
 doRename:oldName to:newName
@@ -2018,22 +2018,23 @@
 
     aPathName isEmpty ifTrue:[^ self].
     (currentDirectory isDirectory:aPathName) ifTrue:[
-	newDirectory := FileDirectory directoryNamed:aPathName in:currentDirectory.
-	newDirectory notNil ifTrue:[
-	    self currentDirectory:newDirectory pathName.
-	    currentFileName notNil ifTrue:[
-		fileListView contents:nil.
-		currentFileName := nil.
-	    ] ifFalse:[
-		fileListView selection:nil.
-		fileListView scrollToTop.
-	    ].
-	    self updateCurrentDirectory.
-	    self showInfo.
-	]
+        newDirectory := FileDirectory directoryNamed:aPathName in:currentDirectory.
+        newDirectory notNil ifTrue:[
+            self currentDirectory:newDirectory pathName.
+            currentFileName notNil ifTrue:[
+                fileListView contents:nil.
+                currentFileName := nil.
+            ] ifFalse:[
+                fileListView setSelection:nil.
+                fileListView scrollToTop.
+            ].
+            self updateCurrentDirectory.
+            self showInfo.
+        ]
     ]
 
     "Modified: 21.9.1995 / 11:22:45 / claus"
+    "Modified: 25.5.1996 / 12:27:01 / cg"
 !
 
 show:something
@@ -2591,5 +2592,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.89 1996-05-21 12:36:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.90 1996-05-25 11:32:05 cg Exp $'
 ! !