Index: /trunk/ccl/hemlock/src/htext3.lisp
===================================================================
--- /trunk/ccl/hemlock/src/htext3.lisp	(revision 800)
+++ /trunk/ccl/hemlock/src/htext3.lisp	(revision 801)
@@ -44,4 +44,5 @@
     (modifying-buffer buffer
 		      (modifying-line line mark)
+                      (check-buffer-modification buffer mark)
 		      (cond ((char= character #\newline)
 			     (let* ((next (line-next line))
@@ -90,4 +91,5 @@
       (delete-region region))
     (unless (zerop (- end start))
+      (check-buffer-modification buffer mark)
       (if (%sp-find-character string start end #\newline)
 	(with-mark ((mark mark :left-inserting))