Index: /release/1.4/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /release/1.4/source/cocoa-ide/cocoa-listener.lisp	(revision 13051)
+++ /release/1.4/source/cocoa-ide/cocoa-listener.lisp	(revision 13052)
@@ -79,5 +79,5 @@
                   (return (aref s 0))))))))))
 
-(defmethod ccl::read-toplevel-form ((stream cocoa-listener-input-stream) &key eof-value)
+(defmethod ccl::read-toplevel-form ((stream cocoa-listener-input-stream) &key eof-value file-name start-offset map)
   (with-slots (queue queue-lock read-lock queue-semaphore text-semaphore cur-string cur-string-pos cur-sstream
                cur-env source-map cur-offset)