Index: /branches/ide-1.0/ccl/hemlock/src/htext4.lisp
===================================================================
--- /branches/ide-1.0/ccl/hemlock/src/htext4.lisp	(revision 6603)
+++ /branches/ide-1.0/ccl/hemlock/src/htext4.lisp	(revision 6604)
@@ -57,4 +57,5 @@
                                                  (if (<= pos bound) *left-open-pos* (- pos n))
                                                  pos)))))
+                         (adjust-line-origins-forward line)
                          (buffer-note-deletion buffer mark n)
                          t)))
@@ -146,4 +147,5 @@
 		   (setf (line-next first-line) next)
 		   (when next (setf (line-previous next) first-line))))))
+        (adjust-line-origins-forward first-line)
         (buffer-note-deletion buffer start ndel)))))
 
@@ -259,4 +261,5 @@
                        (mark saved-line 0 :right-inserting)
                        (mark last-line last-charpos :left-inserting))))))
+          (adjust-line-origins-forward first-line)
           (buffer-note-deletion buffer start ndel)))))))