--- a/TextCollector.st	Tue Feb 28 15:52:09 2017 +0100
+++ b/TextCollector.st	Thu Mar 02 12:10:53 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -519,6 +521,11 @@
 
     |nDel newCursorLine|
 
+    list isEmptyOrNil ifTrue:[
+        "no lines"
+        ^ self.
+    ].
+
     lineLimit notNil ifTrue:[
         (cursorLine > lineLimit) ifTrue:[
             nDel := list size - lineLimit.
@@ -542,6 +549,7 @@
     ].
 
     "Modified: / 26-07-2006 / 16:02:15 / fm"
+    "Modified: / 02-03-2017 / 12:02:03 / stefan"
 !
 
 installDelayedUpdate