Index: /trunk/ccl/level-1/l1-readloop.lisp
===================================================================
--- /trunk/ccl/level-1/l1-readloop.lisp	(revision 5544)
+++ /trunk/ccl/level-1/l1-readloop.lisp	(revision 5545)
@@ -118,5 +118,6 @@
 			     (process-exit-application *current-process*
                                                        #'(lambda ()
-                                                           (#_exit exit-status)))))
+                                                           (%set-toplevel nil)
+                                                           (#__exit exit-status)))))
       (unless (eq cp ip)
 	(process-kill cp)))))
@@ -149,5 +150,5 @@
 	(unless (process-wait-with-timeout
 		 "deathwatch"
-		 (* 5 *ticks-per-second*)
+		 10
 		 #'(lambda () (process-exhausted-p p)))
 	  (maybe-finish-process-kill p :kill))))