--- a/AbstractHierarchicalItem.st	Tue Jul 31 12:07:52 2018 +0200
+++ b/AbstractHierarchicalItem.st	Wed Aug 01 11:41:47 2018 +0200
@@ -145,9 +145,13 @@
 parent
     "returns the parent or nil"
 
-    ^ (parent notNil and:[parent isHierarchicalItem]) 
-        ifTrue:[parent]
+    |p|
+    
+    ^ (p := parent notNil and:[p isHierarchicalItem]) 
+        ifTrue:[p]
         ifFalse:[nil]
+
+    "Modified: / 01-08-2018 / 10:18:37 / Claus Gittinger"
 !
 
 parent:aParent