Index: /trunk/source/lib/dumplisp.lisp
===================================================================
--- /trunk/source/lib/dumplisp.lisp	(revision 14649)
+++ /trunk/source/lib/dumplisp.lisp	(revision 14650)
@@ -146,7 +146,13 @@
       (setq toplevel-function
             (lambda ()
-              (process-run-function "toplevel" (lambda ()
-                                                 (funcall user-toplevel-function)
-                                                 (quit)))
+              (make-mcl-listener-process
+               "toplevel"
+                *stdin*
+                *stdout*
+                 #'quit
+               :initial-function (lambda ()
+                                   (catch :toplevel
+                                     (funcall user-toplevel-function)))
+               )
               (%set-toplevel #'housekeeping-loop)
               (toplevel)))))