--- a/EditTextView.st	Mon Jan 01 11:07:39 2018 +0100
+++ b/EditTextView.st	Sat Jan 13 11:47:39 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
@@ -6277,11 +6279,11 @@
                     ]
                 ] ifFalse:[
                     "check if deletion is ok"
-                    d := delta negated + 1.
+                    d := delta negated.
 
                     line size > d ifTrue:[
-                        (line copyTo:(d - 1)) withoutSeparators isEmpty ifTrue:[
-                            line := line copyFrom:d
+                        (line copyTo:d) withoutSeparators isEmpty ifTrue:[
+                            line := line copyFrom:(d+1)
                         ]
                     ].
                     widthOfWidestLine := nil