--- a/EditTextView.st	Wed Jul 24 23:01:59 2013 +0200
+++ b/EditTextView.st	Thu Jul 25 21:32:21 2013 +0200
@@ -3437,26 +3437,26 @@
     |line col nLines wasOn|
 
     lines notNil ifTrue:[
-	wasOn := self hideCursor.
-	nLines := lines size.
-	line := cursorLine.
-	col := cursorCol.
-	lines keysAndValuesDo:[:i :l |
-	    self replaceString:l atLine:line col:col.
-	    (i ~~ nLines or:[withCr]) ifTrue:[
-		line := line + 1.
-		col := 1.
-	    ] ifFalse:[
-		col := col + (l size).
-	    ]
-	].
-	self cursorLine:line col:col.
-	self makeCursorVisibleAndShowCursor:wasOn.
-	"/ wasOn ifTrue:[self showCursor].
+        wasOn := self hideCursor.
+        nLines := lines size.
+        line := cursorLine.
+        col := cursorCol.
+        lines keysAndValuesDo:[:i :l |
+            self replaceString:(l ? '') atLine:line col:col.
+            (i ~~ nLines or:[withCr]) ifTrue:[
+                line := line + 1.
+                col := 1.
+            ] ifFalse:[
+                col := col + (l size).
+            ]
+        ].
+        self cursorLine:line col:col.
+        self makeCursorVisibleAndShowCursor:wasOn.
+        "/ wasOn ifTrue:[self showCursor].
     ]
 
-    "Created: / 18.5.1996 / 15:32:06 / cg"
-    "Modified: / 12.6.1998 / 22:05:51 / cg"
+    "Created: / 18-05-1996 / 15:32:06 / cg"
+    "Modified: / 25-07-2013 / 17:00:53 / cg"
 !
 
 replaceSelectionBy:something
@@ -8195,10 +8195,10 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.557 2013-07-08 13:43:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.558 2013-07-25 19:32:21 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.557 2013-07-08 13:43:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.558 2013-07-25 19:32:21 cg Exp $'
 ! !