--- a/ListView.st	Tue Mar 12 16:40:50 2019 +0100
+++ b/ListView.st	Tue Mar 12 16:49:04 2019 +0100
@@ -27,8 +27,8 @@
 		checkLineEndConventionWhenUpdating
 		checkedLinesForWidthOfContentsComputation showLineEndIndicators
 		showControlCharacters'
-	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor DefaultTabPositions
-		UserDefaultTabPositions DefaultLeftMargin DefaultTopMargin'
+	classVariableNames:'DefaultBackgroundColor DefaultForegroundColor DefaultLeftMargin
+		DefaultTabPositions DefaultTopMargin UserDefaultTabPositions'
 	poolDictionaries:''
 	category:'Views-Text'
 !
@@ -3765,7 +3765,7 @@
     font := gc deviceFont.
     checkedLinesForWidthOfContentsComputation isNil ifTrue:[
         start := 1.
-        stop := list size
+        stop := (list size min:10000)
     ] ifFalse:[
         checkedLinesForWidthOfContentsComputation == 0 ifTrue:[
             start := firstLineShown.
@@ -3838,7 +3838,8 @@
     widthOfWidestLine := max.
     ^ max + (leftMargin * 2)
 
-    "Modified: / 24.9.1998 / 18:21:08 / cg"
+    "Modified: / 24-09-1998 / 18:21:08 / cg"
+    "Modified: / 12-03-2019 / 15:13:54 / Claus Gittinger"
 !
 
 widthOfLine:lineNr