Index: /branches/ide-1.0/ccl/examples/cocoa-listener.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6785)
+++ /branches/ide-1.0/ccl/examples/cocoa-listener.lisp	(revision 6786)
@@ -213,4 +213,7 @@
   (:metaclass ns:+ns-object))
 
+(defmethod update-buffer-package ((doc hemlock-listener-document) buffer)
+  (declare (ignore buffer)))
+
 (defmethod hi::document-encoding-name ((doc hemlock-listener-document))
   "UTF-8")