--- a/EditTextView.st	Thu Aug 10 00:21:42 2000 +0200
+++ b/EditTextView.st	Thu Aug 10 00:46:36 2000 +0200
@@ -2618,17 +2618,14 @@
                 attribute := line emphasisAt:lineSize
             ].
             newLine := line species new:colNr.
-            newLine replaceFrom:1 to:lineSize
-                           with:line startingAt:1.
+            newLine replaceFrom:1 to:lineSize with:line startingAt:1.
             drawCharacterOnly := true
         ] ifFalse: [
             attribute := line emphasisAt:colNr.
             newLine   := line species new:(lineSize + 1).
 
-            newLine replaceFrom:1 to:(colNr - 1)
-                           with:line startingAt:1.
-            newLine replaceFrom:(colNr + 1) to:(lineSize + 1)
-                           with:line startingAt:colNr
+            newLine replaceFrom:1 to:(colNr - 1) with:line startingAt:1.
+            newLine replaceFrom:(colNr + 1) to:(lineSize + 1) with:line startingAt:colNr
         ]
     ].
 
@@ -4902,5 +4899,5 @@
 !EditTextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.237 2000-08-09 21:50:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.238 2000-08-09 22:46:36 cg Exp $'
 ! !