--- a/HierarchicalListView.st	Mon Jul 23 19:27:38 2018 +0200
+++ b/HierarchicalListView.st	Mon Jul 23 19:32:29 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -936,7 +934,9 @@
     UserPreferences current showDottedLinesInTree ifFalse:[^ self].
 
     item := list at:start ifAbsent:nil.
-    item isNil ifTrue:[^ nil].
+    item isNil ifTrue:[
+        ^ nil
+    ].
     
     self paint:lineColor on:bgColor.
 
@@ -949,7 +949,8 @@
     ].
 
     "/ draw all vertical lines
-    list from:start to:stop do:[:eachItem|
+    "/ take care, list may change while drawing (GUIBrowser when connection goes away!!)
+    list from:start to:(stop min:list size) do:[:eachItem|
         self drawVericalLineForElement:eachItem minX:xL maxX:xR.
     ].
     item notNil ifTrue:[
@@ -1008,6 +1009,7 @@
 
     "Modified: / 03-12-2010 / 19:28:23 / cg"
     "Modified: / 12-06-2018 / 10:46:02 / Claus Gittinger"
+    "Modified (comment): / 23-07-2018 / 19:32:06 / Stefan Vogel"
 !
 
 drawVericalLineForElement:item minX:xL maxX:xR