Index: /trunk/ccl/hemlock/src/buffer.lisp
===================================================================
--- /trunk/ccl/hemlock/src/buffer.lisp	(revision 852)
+++ /trunk/ccl/hemlock/src/buffer.lisp	(revision 853)
@@ -41,5 +41,7 @@
 (defun %set-buffer-modified (buffer sense)
   "If true make the buffer modified, if NIL unmodified."
-  (unless (bufferp buffer) (error "~S is not a buffer." buffer))  
+  (unless (bufferp buffer) (error "~S is not a buffer." buffer))
+  (unless (eq (buffer-modified buffer) (not (null sense)))
+    (queue-buffer-change buffer))
   (invoke-hook hemlock::buffer-modified-hook buffer sense)
   (if sense