--- a/HierarchicalItem.st	Thu Sep 19 11:38:14 2002 +0200
+++ b/HierarchicalItem.st	Thu Sep 19 11:40:27 2002 +0200
@@ -762,7 +762,7 @@
     |model visStart list|
 
     self isExpanded   ifFalse:[ ^ self ].       "/ not expanded
-    children size ~~ 0 ifTrue:[ ^ self ].       "/ no children
+    children size > 1 ifFalse:[ ^ self ].
 
     model := self model.
     model ifNil:[^ self].                       "/ no model
@@ -1758,5 +1758,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.40 2002-09-19 09:17:15 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.41 2002-09-19 09:40:27 ca Exp $'
 ! !