--- a/DirectoryTreeBrowser.st	Tue Aug 19 23:08:08 2003 +0200
+++ b/DirectoryTreeBrowser.st	Tue Aug 19 23:33:18 2003 +0200
@@ -718,11 +718,15 @@
     ].
     self rootHolder notNil ifTrue:[
         self selectFiles:selectFiles.
+
+        "/ cg: why was this done
+false ifTrue:[
         self selectedItems do:[:item|
             (item isDirectory and:[item isExpanded not]) ifTrue:[
                 item enforcedExpand "/ expand.
             ]
         ].
+].
         ^ self
     ].
 !
@@ -1281,5 +1285,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.71 2003-07-31 08:55:22 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.72 2003-08-19 21:33:18 cg Exp $'
 ! !