--- a/HierarchicalItem.st	Wed Feb 02 10:32:16 2000 +0100
+++ b/HierarchicalItem.st	Wed Feb 02 12:37:49 2000 +0100
@@ -429,6 +429,9 @@
             notify := nil
         ]
     ].
+    children isArray ifTrue:[
+        children := children asOrderedCollection
+    ].
 
     size == 0 ifTrue:[
         children := OrderedCollection new
@@ -569,6 +572,7 @@
     ] ifFalse:[
         index := 0
     ].
+
     children from:start to:stop do:[:aChild|
         index ~~ 0 ifTrue:[
             size := size + aChild numberOfVisibleChildren
@@ -1175,7 +1179,6 @@
             ] ifFalse:[
                 i == 4 ifTrue:[
                     tmp := #( 'penguin' 'and' 'text') asStringCollection asString.
-                    tmp removeLast.
                     lbl := Array with:(self class penguinIcon)
                                  with:tmp.
                 ] ifFalse:[
@@ -1256,5 +1259,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.18 2000-01-14 08:22:31 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.19 2000-02-02 11:37:49 ca Exp $'
 ! !