--- a/AbstractHierarchicalItem.st	Wed Feb 13 12:59:05 2019 +0100
+++ b/AbstractHierarchicalItem.st	Wed Feb 13 13:00:00 2019 +0100
@@ -413,7 +413,8 @@
     "collapse item and recursively all sub items"
     
     self canCollapse ifFalse:[^ self].
-self checkConsistency.    
+
+    "/ self checkConsistency.    
     self synchronized:[
         |nrOfVisibleChildren index|
 
@@ -436,9 +437,9 @@
             ]
         ]
     ].
-self checkConsistency.
-
-    "Modified: / 13-02-2019 / 12:31:46 / Claus Gittinger"
+    "/ self checkConsistency.
+
+    "Modified: / 13-02-2019 / 12:59:40 / Claus Gittinger"
 !
 
 recursiveExpand
@@ -448,7 +449,7 @@
 
     |index todo toExpand wasExpanded myList prevChildren childrenOfToExpand|
 
-self checkConsistency.    
+    "/ self checkConsistency.    
     self synchronized:[        
         myList := self model.
         todo := OrderedCollection with:self.
@@ -499,10 +500,10 @@
             ]
         ]
     ].
-self checkConsistency.
+    "/ self checkConsistency.
 
     "Modified (comment): / 02-08-2018 / 16:16:17 / Stefan Vogel"
-    "Modified: / 13-02-2019 / 12:31:56 / Claus Gittinger"
+    "Modified: / 13-02-2019 / 12:59:19 / Claus Gittinger"
 !
 
 recursiveToggleExpand