Index: /trunk/ccl/hemlock/src/modeline.lisp
===================================================================
--- /trunk/ccl/hemlock/src/modeline.lisp	(revision 850)
+++ /trunk/ccl/hemlock/src/modeline.lisp	(revision 851)
@@ -240,6 +240,9 @@
   (add-hook hemlock::buffer-name-hook 'queue-buffer-change)
   (add-hook hemlock::buffer-pathname-hook 'queue-buffer-change)
-  (add-hook hemlock::buffer-modified-hook 'queue-buffer-change)
-  (add-hook hemlock::window-buffer-hook 'queue-window-change))
+  ;; (SETF (BUFFER-MODIFIED ...)) handles updating the modeline;
+  ;; it only wants to do so if the buffer's modified state changes.
+;  (add-hook hemlock::buffer-modified-hook 'queue-buffer-change)
+  (add-hook hemlock::window-buffer-hook 'queue-window-change)
+)
 
 (defun queue-buffer-change (buffer &optional something-else another-else)