Index: /trunk/ccl/level-1/l1-application.lisp
===================================================================
--- /trunk/ccl/level-1/l1-application.lisp	(revision 5891)
+++ /trunk/ccl/level-1/l1-application.lisp	(revision 5892)
@@ -243,5 +243,6 @@
            :may-take-operand nil
            :allow-multiple nil)
-          ))))
+          ))
+   (initial-listener-process :initform nil)))
 
 (defparameter *application*
@@ -276,19 +277,22 @@
   (call-next-method)
   (let* ((sr (input-stream-shared-resource *terminal-input*)))
-    (make-mcl-listener-process
-     "listener"
-     *terminal-input*
-     *terminal-output*
-     #'(lambda () (when sr (setf (shared-resource-primary-owner sr)
-				 *initial-process*)))
-     :initial-function
-     #'(lambda ()
-	 (startup-ccl (and *load-lisp-init-file* init-file))
-	 (listener-function)
-	 nil)
-     :close-streams nil
-     :control-stack-size *initial-listener-default-control-stack-size*
-     :value-stack-size *initial-listener-default-value-stack-size*
-     :temp-stack-size *initial-listener-default-temp-stack-size*))
+    (with-slots (initial-listener-process) a
+      (setq initial-listener-process
+            (make-mcl-listener-process
+             "listener"
+             *terminal-input*
+             *terminal-output*
+             #'(lambda () (when sr (setf (shared-resource-primary-owner sr)
+                                         *initial-process*)))
+             :initial-function
+             #'(lambda ()
+                 (startup-ccl (and *load-lisp-init-file* init-file))
+                 (listener-function)
+                 nil)
+             :close-streams nil
+             :control-stack-size *initial-listener-default-control-stack-size*
+             :value-stack-size *initial-listener-default-value-stack-size*
+             :temp-stack-size *initial-listener-default-temp-stack-size*
+             :process initial-listener-process))))
   (%set-toplevel #'(lambda ()
                      (with-standard-abort-handling nil