--- a/AbstractHierarchicalItem.st	Tue Jun 12 10:47:52 2018 +0200
+++ b/AbstractHierarchicalItem.st	Tue Jun 12 10:48:08 2018 +0200
@@ -1788,11 +1788,13 @@
 !
 
 drawHorizontalLineUpToText
-    "draw the horizizontal line for the selected item up to the text
-     or on default to the start of the the vertical line; only used by
-     the hierarchical view
+    "draw the horizontal line for the selected item up to the text
+     or (by default) to the start of the vertical line; 
+     only used by the hierarchical view
     "
     ^ false
+
+    "Modified (comment): / 12-06-2018 / 10:41:54 / Claus Gittinger"
 !
 
 hasChildren