--- a/DirectoryTreeBrowser.st	Fri Dec 10 15:09:46 2004 +0100
+++ b/DirectoryTreeBrowser.st	Fri Dec 10 16:47:10 2004 +0100
@@ -1134,6 +1134,7 @@
     |currentSelection newSelection|
 
     currentSelection := self selectedItems.
+    aColOfItems do:[:anItem| anItem isDirectory ifTrue:[ anItem expand ]].
     self multipleSelect ifTrue:[
         currentSelection notNil ifTrue:[
             aColOfItems size == currentSelection size ifTrue:[
@@ -1324,5 +1325,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.90 2004-08-06 13:08:06 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.91 2004-12-10 15:47:10 penk Exp $'
 ! !