--- a/TreeItem.st	Thu Aug 03 17:04:59 2017 +0200
+++ b/TreeItem.st	Fri Aug 04 14:21:52 2017 +0200
@@ -367,10 +367,14 @@
 children
     "get list of children
     "
+
+    "/ readChildren is actually: "MUSTreadChildren" - bad naming
     (readChildren and:[children isEmpty]) ifTrue:[       
         self retrieveChildren
     ].
     ^children
+
+    "Modified (comment): / 04-08-2017 / 14:15:08 / cg"
 !
 
 children:aCollection 
@@ -381,10 +385,13 @@
     ] ifFalse:[
         aCollection notNil ifTrue:[
             aCollection do:[:child| child parent:self ].
+            "/ readChildren is actually: "MUSTreadChildren" - bad naming
             readChildren := false
         ].
         children := aCollection
     ]
+
+    "Modified (comment): / 04-08-2017 / 14:15:13 / cg"
 !
 
 firstChild
@@ -407,9 +414,12 @@
 !
 
 readChildren:aBoolean
-   "set read children flag
+   "set MUSTread children flag
    "    
+    "/ readChildren is actually: "MUSTreadChildren" - bad naming
    readChildren:= aBoolean
+
+    "Modified (comment): / 04-08-2017 / 14:15:25 / cg"
 ! !
 
 !TreeItem methodsFor:'accessing-dimensions'!
@@ -766,8 +776,11 @@
     super initialize.
 
     children := OrderedCollection new.
+    "/ readChildren is actually: "MUSTreadChildren" - bad naming
     readChildren := hide := true.
     contents := UnknownContents.
+
+    "Modified (comment): / 04-08-2017 / 14:15:31 / cg"
 ! !
 
 !TreeItem methodsFor:'printing & storing'!
@@ -915,6 +928,7 @@
     |
 
     hide ifFalse:[
+        "/ readChildren is actually: "MUSTreadChildren" - bad naming
         readChildren ifTrue:[
             self children
         ].
@@ -928,8 +942,7 @@
         ]
     ]
 
-
-
+    "Modified (format): / 04-08-2017 / 14:15:42 / cg"
 !
 
 numberOfAllVisibleChildren
@@ -940,6 +953,7 @@
     hide ifTrue:[
         ^ 0
     ].
+    "/ readChildren is actually: "MUSTreadChildren" - bad naming
     readChildren ifTrue:[ self children ].
 
     (total := children size) ~~ 0 ifTrue:[
@@ -947,8 +961,7 @@
     ].
     ^ total
 
-
-
+    "Modified (comment): / 04-08-2017 / 14:15:49 / cg"
 ! !
 
 !TreeItem methodsFor:'retrieving'!
@@ -1037,10 +1050,13 @@
             (obj isKindOf:cls) ifTrue:[obj]
                               ifFalse:[cls new contents:obj]       
         ]). 
+        "/ readChildren is actually: "MUSTreadChildren" - bad naming
         readChildren := false.
     ].     
 
     ^ children
+
+    "Modified (comment): / 04-08-2017 / 14:15:56 / cg"
 !
 
 retrieveContents