--- a/HierarchicalItem.st	Tue Sep 13 23:07:19 2005 +0200
+++ b/HierarchicalItem.st	Tue Sep 13 23:26:37 2005 +0200
@@ -352,15 +352,8 @@
     "/ test whether the item already is expanded; #canExpand could be redefined
     "/ without checking whether the node is expanded (happens already) !!
 
+    |index list|
     isExpanded ifTrue:[ ^ self ].
-    ^ self recursiveForceExpand.
-!
-
-recursiveForceExpand
-    "expand children and sub-children
-     **** must not be collapsed
-    "
-    |index list|
 
     self canExpand ifFalse:[ ^ self ].
 
@@ -383,6 +376,8 @@
             ]
         ]
     ].
+
+    ^ self recursiveForceExpand.
 !
 
 recursiveToggleExpand
@@ -1900,5 +1895,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.69 2005-09-13 21:07:19 ab Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.70 2005-09-13 21:26:37 ab Exp $'
 ! !