--- a/ListView.st	Mon Aug 20 11:47:27 2018 +0200
+++ b/ListView.st	Mon Aug 20 21:03:56 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -5080,7 +5078,8 @@
                 runner value:[:lnr :col :lineString |
                         |lineStream|
 
-                        lineStream := lineString readStream position:col-1; yourself.
+                        lineStream := lineString readStream.
+                        lineStream position:(col-1 min:lineString size).
                         "/ find which match to show
                         (matcher searchStream:lineStream) ifTrue:[
                             foundCol := matcher subBeginning:1.
@@ -5147,6 +5146,7 @@
     "Created: / 13-09-1997 / 01:06:31 / cg"
     "Modified: / 05-08-2012 / 12:22:42 / cg"
     "Modified (format): / 12-10-2017 / 18:35:55 / stefan"
+    "Modified: / 20-08-2018 / 21:02:27 / Claus Gittinger"
 !
 
 standardWordCheck:char