--- a/HierarchyNode.st	Mon Apr 16 12:26:21 2018 +0200
+++ b/HierarchyNode.st	Tue Apr 17 19:00:59 2018 +0200
@@ -606,10 +606,10 @@
 !
 
 hasChildren
+    ^ children notEmptyOrNil.
 
-	^children size > 0.
-
-	"Modified: 10.10.94 / 16:13:33 / W.Olberding"
+    "Modified: / 10-10-1994 / 16:13:33 / W.Olberding"
+    "Modified: / 17-04-2018 / 17:44:00 / stefan"
 !
 
 isCollapsable