--- a/HierarchicalListView.st	Wed Mar 02 17:23:31 2016 +0100
+++ b/HierarchicalListView.st	Thu Mar 24 14:39:29 2016 +0100
@@ -1083,7 +1083,7 @@
     |width needMore icon maxLevel startOfText oldX newX|
 
     Error handle:[:ex |
-        Transcript showCR:'error in redraw'.
+        Transcript showCR:'HierachicalListView: error in redraw'.
         ^ nil.
     ] do:[
         icon := self iconFor:anItem.