--- a/HierarchicalList.st	Tue Feb 12 19:01:33 2019 +0100
+++ b/HierarchicalList.st	Tue Feb 12 19:02:06 2019 +0100
@@ -225,6 +225,14 @@
     "Modified: / 01-08-2018 / 15:18:45 / Stefan Vogel"
 !
 
+itemAddAll:aListOfItems afterIndex:anIndex
+    "insert all items after an index"
+
+    self addAll:aListOfItems afterIndex:anIndex
+
+    "Created: / 12-02-2019 / 17:19:43 / Claus Gittinger"
+!
+
 itemAddAll:aListOfItems beforeIndex:anIndex
     "insert all items before an index"