Index: /trunk/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 15019)
+++ /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 15020)
@@ -256,5 +256,7 @@
 (defloadvar *first-listener* t)
 
-(defun new-cocoa-listener-process (procname window &key (class 'cocoa-listener-process) initargs)
+(defun new-cocoa-listener-process (procname window &key (class 'cocoa-listener-process)
+                                                        (initial-function 'ccl::listener-function)
+                                                        initargs)
   (declare (special *standalone-cocoa-ide*))
   (let* ((input-stream (make-instance 'cocoa-listener-input-stream))
@@ -285,5 +287,5 @@
            (ccl::startup-ccl (ccl::application-init-file ccl::*application*))
            (ui-object-note-package *nsapp* *package*))
-         (ccl::listener-function))
+         (funcall initial-function))
      :echoing nil
      :class class