--- a/HierarchicalItem.st	Thu Oct 21 20:58:18 1999 +0200
+++ b/HierarchicalItem.st	Sat Oct 23 00:57:37 1999 +0200
@@ -399,8 +399,7 @@
 addAll:aList beforeIndex:anIndex
     "add children before an index
     "
-    |coll model notify
-     index "{ Class:SmallInteger }"
+    |coll model notify index
      size  "{ Class:SmallInteger }"
     |
 
@@ -1234,5 +1233,5 @@
 !HierarchicalItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.13 1999-10-18 21:23:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalItem.st,v 1.14 1999-10-22 22:57:37 cg Exp $'
 ! !