--- a/HierarchicalItem.st	Wed Oct 09 12:03:29 2002 +0200
+++ b/HierarchicalItem.st	Wed Oct 09 13:16:53 2002 +0200
@@ -770,7 +770,10 @@
     model ifNil:[^ self].                       "/ no model
 
     visStart := model identityIndexOf:self.
-    visStart == 0 ifTrue:[^ self].              "/ not visible in the model
+    visStart == 0 ifTrue:[
+        self parent ifNotNil:[ ^ self ].        "/ not visible in the model
+        "/ I am the root and not visible
+    ].
 
     self criticalDo:[
         list := OrderedCollection new.
@@ -1774,5 +1777,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.43 2002-10-07 16:30:53 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.44 2002-10-09 11:16:53 james Exp $'
 ! !