--- a/ETxtView.st	Sat Nov 09 18:37:10 1996 +0100
+++ b/ETxtView.st	Mon Nov 11 11:28:09 1996 +0100
@@ -1865,6 +1865,9 @@
                       ifFalse:[ newLine := '' ].
 
             stop == lineSize ifFalse:[
+                line bitsPerCharacter > newLine bitsPerCharacter ifTrue:[
+                    newLine := line string species fromString:newLine.
+                ].
                 newLine := newLine, (line copyFrom:(stop + 1) to:lineSize)
             ].
 
@@ -1879,7 +1882,7 @@
         ]
     ]
 
-
+    "Modified: 11.11.1996 / 11:24:48 / cg"
 !
 
 deleteFromLine:startLine col:startCol toLine:endLine col:endCol
@@ -3871,5 +3874,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.96 1996-11-06 17:46:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ETxtView.st,v 1.97 1996-11-11 10:28:09 cg Exp $'
 ! !

--- a/EditTextView.st	Sat Nov 09 18:37:10 1996 +0100
+++ b/EditTextView.st	Mon Nov 11 11:28:09 1996 +0100
@@ -1865,6 +1865,9 @@
                       ifFalse:[ newLine := '' ].
 
             stop == lineSize ifFalse:[
+                line bitsPerCharacter > newLine bitsPerCharacter ifTrue:[
+                    newLine := line string species fromString:newLine.
+                ].
                 newLine := newLine, (line copyFrom:(stop + 1) to:lineSize)
             ].
 
@@ -1879,7 +1882,7 @@
         ]
     ]
 
-
+    "Modified: 11.11.1996 / 11:24:48 / cg"
 !
 
 deleteFromLine:startLine col:startCol toLine:endLine col:endCol
@@ -3871,5 +3874,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.96 1996-11-06 17:46:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.97 1996-11-11 10:28:09 cg Exp $'
 ! !