--- a/FileSelectionTree.st	Thu Sep 24 18:41:24 1998 +0200
+++ b/FileSelectionTree.st	Thu Sep 24 18:42:55 1998 +0200
@@ -392,7 +392,7 @@
      aPath. The pathname must be a directory otherwise the root directory
      is set to nil.
     "
-    |root path|
+    |root path isOK|
 
     model selection:(selection := nil).
     path := self makeLegalFilename:aPath.
@@ -400,21 +400,20 @@
     (path notNil 
     and:[path isDirectory 
     and:[path isExecutable]]) ifTrue:[
+        isOK := true.
+    ] ifFalse:[
+        "/ special for WIN32 / VMS
+        isOK := path isVolumeAbsolute
+    ].
+    isOK ifTrue:[
         root := self itemClass pathName:path.
         model root:root.
         model expand:root.
     ] ifFalse:[
-        "/ special for WIN32 / VMS
-        path isVolumeAbsolute ifTrue:[
-            root := self itemClass pathName:path.
-            model root:root.
-            model expand:root.
-        ] ifFalse:[
-            model root:nil.
-        ].
+        model root:nil
     ].
 
-    "Modified: / 24.9.1998 / 15:46:00 / cg"
+    "Modified: / 24.9.1998 / 17:43:11 / cg"
 !
 
 itemClass
@@ -765,5 +764,5 @@
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.18 1998-09-24 14:53:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.19 1998-09-24 16:42:55 cg Exp $'
 ! !