--- a/DirectoryTreeBrowser.st	Thu Nov 28 23:11:31 2002 +0100
+++ b/DirectoryTreeBrowser.st	Fri Nov 29 10:14:01 2002 +0100
@@ -680,7 +680,12 @@
     ].
     self rootHolder notNil ifTrue:[
         self selectFiles:selectFiles.
-      ^ self
+        self selectedItems do:[:item|
+            (item isDirectory and:[item isExpanded not]) ifTrue:[
+                item expand.
+            ]
+        ].
+        ^ self
     ].
 !
 
@@ -1323,5 +1328,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.35 2002-11-08 14:18:05 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.36 2002-11-29 09:14:01 penk Exp $'
 ! !