--- a/FileBrowser.st	Thu Apr 24 21:17:56 1997 +0200
+++ b/FileBrowser.st	Thu Apr 24 22:43:01 1997 +0200
@@ -2141,7 +2141,7 @@
 
                         pos := DirectoryHistoryWhere at:idx.
                         pos notNil ifTrue:[
-                            fileListView scrollToLine:pos
+                            fileListView scrollToLine:pos.
                         ]
                     ].
 
@@ -2177,6 +2177,8 @@
         ].
         self showAlert:(resources string:msg with:fileName) with:nil
     ]
+
+    "Modified: 24.4.1997 / 22:41:46 / cg"
 !
 
 doChangeToHomeDirectory
@@ -3138,7 +3140,7 @@
     "
 
     self withReadCursorDo:[
-        |files matchPattern|
+        |files matchPattern list passDone|
 
         self stopUpdateProcess.
 
@@ -3168,6 +3170,29 @@
         files := self withoutHiddenFiles:files.
         fileList := files copy.
 
+        tabSpec isNil ifTrue:[
+            showLongList ifTrue:[
+                self defineTabulatorsForLongList
+            ] ifFalse:[
+                self defineTabulatorsForShortList
+            ].
+        ].
+
+        "/
+        "/ first show all the names - this can be done fast ...
+        "/
+        list := files collect:[:fileName |
+                    |entry|
+
+                    entry := MultiColListEntry new.
+                    entry tabulatorSpecification:tabSpec.
+                    entry colAt:1 put:nil.
+                    entry colAt:2 put:fileName.
+                ].
+
+        fileListView setList:list expandTabs:false.
+        passDone := Array new:list size withAll:0.
+
         "
          this is a time consuming operation (especially, if reading an
          NFS-mounted directory); therefore, start a low prio process,
@@ -3176,35 +3201,12 @@
 
         listUpdateProcess := [
             |prevUid prevGid fileNameString nameString groupString 
-             modeString info line len list
-             anyImages passDone lineIndex aFileName
+             modeString info line len
+             anyImages lineIndex aFileName
              entry typ f p typeString done endIndex 
              state stopAtEnd nextState img prevFirstLine prevLastLine
              numVisible|
 
-            tabSpec isNil ifTrue:[
-                showLongList ifTrue:[
-                    self defineTabulatorsForLongList
-                ] ifFalse:[
-                    self defineTabulatorsForShortList
-                ].
-            ].
-
-            "/
-            "/ first show all the names - this can be done fast ...
-            "/
-            list := files collect:[:fileName |
-                        |entry|
-
-                        entry := MultiColListEntry new.
-                        entry tabulatorSpecification:tabSpec.
-                        entry colAt:1 put:nil.
-                        entry colAt:2 put:fileName.
-                    ].
-
-            fileListView setList:list expandTabs:false.
-            passDone := Array new:list size withAll:0.
-
             "/
             "/ then walk over the files, adding more info
             "/ (since we have to stat each file, this may take a while longer)
@@ -3472,7 +3474,7 @@
     ]
 
     "Modified: 21.9.1995 / 11:40:23 / claus"
-    "Modified: 21.4.1997 / 15:01:27 / cg"
+    "Modified: 24.4.1997 / 22:40:44 / cg"
 ! !
 
 !FileBrowser methodsFor:'queries'!
@@ -3487,6 +3489,6 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.152 1997-04-23 11:30:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.153 1997-04-24 20:43:01 cg Exp $'
 ! !
 FileBrowser initialize!