--- a/HierarchicalList.st	Mon Jul 30 12:16:41 2018 +0200
+++ b/HierarchicalList.st	Mon Jul 30 14:28:14 2018 +0200
@@ -209,12 +209,6 @@
 
 !HierarchicalList methodsFor:'private'!
 
-criticalDo:aBlock
-    "evaluate the block in a critical region
-    "
-    ^ recursionLock critical:aBlock
-!
-
 initContents:aSize
     "setup defaults
     "
@@ -228,9 +222,11 @@
 !
 
 itemAddAll:aListOfItems beforeIndex:anIndex
-    "insert all items before an index
-    "
-    super addAll:aListOfItems beforeIndex:anIndex
+    "insert all items before an index"
+
+    self addAll:aListOfItems beforeIndex:anIndex
+
+    "Modified: / 30-07-2018 / 11:29:55 / Stefan Vogel"
 !
 
 itemChanged:what with:aPara from:anItem
@@ -239,9 +235,10 @@
      **** don't know what to do with a parameter and argument what
      **** list protocol ****
     "
+
     |index arrIdx "{ Class: SmallInteger }"|
 
-    (index := super identityIndexOf:anItem) ~~ 0 ifTrue:[
+    (index := self identityIndexOf:anItem) ~~ 0 ifTrue:[
         arrIdx := index + firstIndex - 1.
         contentsArray basicAt:arrIdx put:anItem.
 
@@ -249,20 +246,26 @@
             what isNil ifTrue:[self changed:#at: with:index]
                       ifFalse:[self changed:#at: with:(Array with:index with:what)]
         ]
-    ]
+    ].
+
+    "Modified: / 30-07-2018 / 14:26:24 / Stefan Vogel"
 !
 
 itemRemoveFromIndex:start toIndex:stop
     "remove the items stored under startIndex up to and including
-     the items under stopIndex.
-    "
-    ^ super removeFromIndex:start toIndex:stop
+     the items under stopIndex."
+
+    ^ self removeFromIndex:start toIndex:stop
+
+    "Modified: / 30-07-2018 / 11:31:22 / Stefan Vogel"
 !
 
 parentOrModel
-    "always returns nil
-    "
+    "always returns nil"
+
     ^ nil
+
+    "Modified (comment): / 30-07-2018 / 11:31:33 / Stefan Vogel"
 !
 
 synchronizationSemaphore
@@ -270,11 +273,12 @@
 !
 
 synchronized:aBlock
-    "evaluate the block in a critical region
-    "
+    "evaluate the block in a critical region"
+
     ^ recursionLock critical:aBlock
 
     "Modified: / 28-07-2018 / 12:14:42 / Claus Gittinger"
+    "Modified (comment): / 30-07-2018 / 11:21:03 / Stefan Vogel"
 ! !
 
 !HierarchicalList methodsFor:'private-monitoring task'!
@@ -373,9 +377,11 @@
 !HierarchicalList methodsFor:'protocol'!
 
 childrenFor:anItem
-    "returns the children for an item or an empty list
-    "
+    "returns the children for an item or an empty list"
+
     ^ #()
+
+    "Modified (comment): / 30-07-2018 / 11:33:09 / Stefan Vogel"
 !
 
 iconFor:anItem