--- a/FileSelectionTree.st	Mon Mar 18 14:07:01 2002 +0100
+++ b/FileSelectionTree.st	Mon Mar 25 11:08:27 2002 +0100
@@ -525,11 +525,11 @@
 
     (newPath := rootHolder value) notNil ifTrue:[
         newPath := newPath asString.
+        self directory = newPath ifFalse:[
+            self changeDirectory:newPath
+        ]
     ].
 
-    self directory = newPath ifFalse:[
-        self changeDirectory:newPath
-    ]
 !
 
 selectionFromModel
@@ -743,5 +743,5 @@
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.25 2000-08-21 22:43:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.26 2002-03-25 10:08:27 penk Exp $'
 ! !