--- a/DirectoryTreeBrowser.st	Tue Dec 16 12:08:35 2008 +0100
+++ b/DirectoryTreeBrowser.st	Wed Dec 17 08:48:16 2008 +0100
@@ -1135,7 +1135,7 @@
                 ].
             ].
             "if it is a directory it should be expanded"
-            item enforcedExpand.
+            "/ item enforcedExpand.
             items add:item.
         ].
     ].
@@ -1147,7 +1147,8 @@
     |currentSelection newSelection|
 
     currentSelection := self selectedItems.
-    aColOfItems do:[:anItem| anItem isDirectory ifTrue:[ anItem expand ]].
+"/    aColOfItems do:[:anItem| anItem isDirectory ifTrue:[ anItem expand ]].
+
     self multipleSelect ifTrue:[
         currentSelection notNil ifTrue:[
             aColOfItems size == currentSelection size ifTrue:[
@@ -1341,5 +1342,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.109 2008-10-07 07:56:01 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.110 2008-12-17 07:48:16 ca Exp $'
 ! !