Index: /trunk/ccl/examples/cocoa-listener.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-listener.lisp	(revision 5539)
+++ /trunk/ccl/examples/cocoa-listener.lisp	(revision 5540)
@@ -85,4 +85,12 @@
   )
 
+
+;;; Listener documents are never (or always) ediited.  Don't cause their
+;;; close boxes to be highlighted.
+(define-objc-method ((:void :set-document-edited (:<BOOL> edited))
+                     hemlock-listener-window-controller)
+  (declare (ignore edited)))
+ 
+
 (define-objc-method ((:id :init-with-window w)
 		     hemlock-listener-window-controller)