--- a/AbstractHierarchicalItem.st	Wed Aug 01 15:20:50 2018 +0200
+++ b/AbstractHierarchicalItem.st	Wed Aug 01 16:10:32 2018 +0200
@@ -147,11 +147,11 @@
 
     |p|
     
-    ^ (p := parent notNil and:[p isHierarchicalItem]) 
+    ^ ((p := parent) notNil and:[p isHierarchicalItem]) 
         ifTrue:[p]
         ifFalse:[nil]
 
-    "Modified: / 01-08-2018 / 10:18:37 / Claus Gittinger"
+    "Modified: / 01-08-2018 / 16:10:15 / Claus Gittinger"
 !
 
 parent:aParent