--- a/EditTextView.st	Fri Mar 18 18:23:29 2011 +0100
+++ b/EditTextView.st	Fri Mar 18 18:24:57 2011 +0100
@@ -3474,8 +3474,9 @@
 
     "/ isnt this the same as:
     "/ self deleteLinesWithoutRedrawFrom:startLineNr to:endLineNr.
-
-    list removeFromIndex:startLineNr toIndex:(endLineNr min:list size).
+    startLineNr <= list size ifTrue:[
+        list removeFromIndex:startLineNr toIndex:(endLineNr min:list size).
+    ].
     "/ TODO: remember old maxwidth of linerange,
     "/ only clear widthOfWidestLine, if this max
     "/ length was (one of) the longest.
@@ -3487,11 +3488,12 @@
 
     nLines := list size.
     (firstLineShown >= nLines) ifTrue:[
-	self makeLineVisible:nLines
+        self makeLineVisible:nLines
     ].
     wasOn ifTrue:[self showCursor].
 
-    "Modified: / 10.11.1998 / 23:55:05 / cg"
+    "Modified: / 10-11-1998 / 23:55:05 / cg"
+    "Modified: / 18-03-2011 / 18:26:23 / az"
 !
 
 basicDeleteLineWithoutRedraw:lineNr
@@ -7764,9 +7766,9 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.500 2011-03-18 17:23:29 az Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.501 2011-03-18 17:24:57 az Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.500 2011-03-18 17:23:29 az Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.501 2011-03-18 17:24:57 az Exp $'
 ! !