Index: /trunk/source/cocoa-ide/hemlock/src/htext4.lisp
===================================================================
--- /trunk/source/cocoa-ide/hemlock/src/htext4.lisp	(revision 12695)
+++ /trunk/source/cocoa-ide/hemlock/src/htext4.lisp	(revision 12696)
@@ -302,6 +302,5 @@
 	(%sp-byte-blt first-chars first-charpos chars 0 length)
         (setf (line-charprops-changes first-copied-line)
-              (copy-line-charprops first-line :start first-charpos
-                                   :end last-charpos))
+              (copy-line-charprops first-line :start first-charpos))
 	(do ((line (line-next first-line) (line-next line))
 	     (previous first-copied-line)