--- a/DirectoryTreeBrowser.st	Fri Sep 26 13:55:48 2003 +0200
+++ b/DirectoryTreeBrowser.st	Fri Sep 26 15:39:33 2003 +0200
@@ -769,7 +769,7 @@
         ]
     ].
     self rootHolder value:(list directory asString) withoutNotifying:self.
-    list size = 1 ifTrue:[list first expand:true]
+    (list size = 1 and:[list first isDirectory]) ifTrue:[list first expand:true]
 !
 
 selectionChanged
@@ -1311,5 +1311,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.75 2003-09-26 11:14:31 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.76 2003-09-26 13:39:33 penk Exp $'
 ! !