Index: /trunk/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 14698)
+++ /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 14699)
@@ -864,5 +864,5 @@
   (ccl::read-toplevel-form (underlying-input-stream s) :eof-value eof-value))
 
-(defmethod enqueue-toplevel-form ((s deferred-cocoa-listener-input-stream) string &rest args)
+(defmethod enqueue-toplevel-form ((s deferred-cocoa-listener-input-stream) string &rest args &key &allow-other-keys)
   (apply #'enqueue-toplevel-form (underlying-input-stream s) string args))