Index: /trunk/ccl/hemlock/src/htext2.lisp
===================================================================
--- /trunk/ccl/hemlock/src/htext2.lisp	(revision 711)
+++ /trunk/ccl/hemlock/src/htext2.lisp	(revision 712)
@@ -154,5 +154,6 @@
     (modifying-buffer buffer
       (modifying-line line mark)
-      (cond ((= *right-open-pos* *line-cache-length*)
+      (cond ((= (mark-charpos mark)
+		(- *line-cache-length* (- *right-open-pos* *left-open-pos*)))
 	     ;; The mark is at the end of the line.
 	     (unless next
@@ -191,5 +192,6 @@
 	    (t
 	     (setf (char (the simple-string *open-chars*) *right-open-pos*)
-		   character)))))
+		   character)
+	     (hi::buffer-note-modification buffer mark 1)))))
   character)
 
@@ -451,5 +453,5 @@
   (write-string "#<Hemlock Mark \"" stream)
   (%print-before-mark structure stream)
-  (write-string "/\\" stream)
+  (write-string "^" stream)
   (%print-after-mark structure stream)
   (write-string "\">" stream))