Index: /trunk/ccl/lib/dumplisp.lisp
===================================================================
--- /trunk/ccl/lib/dumplisp.lisp	(revision 472)
+++ /trunk/ccl/lib/dumplisp.lisp	(revision 473)
@@ -69,4 +69,9 @@
 					 rest)))))
       (unless (eq cp ip)
+	(when (try-lock *quit-acknowledge-lock*)
+	  (let-globally ((*quit-acknowledge* (make-semaphore)))
+			(unless 
+			    (timed-wait-on-semaphore *quit-acknowledge* 1)
+			  (dbg "no quit ack"))))
 	(process-kill cp)))))