diff -r 9f6c2575f2b1 -r 853ea1a1162a FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Wed Dec 03 22:13:22 2008 +0100
+++ b/FileSelectionBrowser.st	Wed Dec 03 22:13:24 2008 +0100
@@ -9,9 +9,6 @@
  other person. No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libtool2' }"
 
 SelectionBrowser subclass:#FileSelectionBrowser
@@ -535,10 +532,7 @@
 !
 
 readDirectory
-
-    self directoryTreeView selection notNil 
-    ifTrue: 
-    [
+    self directoryTreeView selection notNil ifTrue: [
         directoryView directory: self selectionOfDirectory value.
         directoryView readDirectory.  
         self class lastSelection notNil ifTrue: [self class lastSelection: self selectionOfDirectory value]
@@ -558,26 +552,27 @@
     f := inputField contents.
     dir := f asFilename directoryName.
 
-    (completedDirectory := Filename 
+    completedDirectory := Filename 
         filenameCompletionFor:f
         directory:dir
         directoriesOnly:true 
         filesOnly:false 
         ifMultiple:
-        [:dir | 
-            treeView selection notNil ifTrue:[
-                treeView selectedNodeExpand: true
-            ]
-        ]) asFilename exists
-    ifTrue:
-    [
+            [:dir | 
+                treeView selection notNil ifTrue:[
+                    treeView selectedNodeExpand: true
+                ]
+            ].
+
+    completedDirectory asFilename exists ifTrue:[
         "/ volume changed ... (win32 or VMS)
-        completedDirectory asFilename volume ~= directory asFilename volume ifTrue:[
-            self setRootForFile:completedDirectory asFilename.
+"/        completedDirectory asFilename volume ~= directory asFilename volume ifTrue:[
+"/        ].
+        completedDirectory asFilename volume ~= treeView scrolledView directory asFilename volume ifTrue:[
+            treeView scrolledView directory:completedDirectory asFilename volume
         ].
         treeView selectPathname: completedDirectory.
         inputField contents: completedDirectory.
-"/            self directoryTreeView selectPathname: completedDirectory.
         self readDirectory
     ] ifFalse: [
         inputField flash