Index: /trunk/ccl/lib/dumplisp.lisp
===================================================================
--- /trunk/ccl/lib/dumplisp.lisp	(revision 536)
+++ /trunk/ccl/lib/dumplisp.lisp	(revision 537)
@@ -68,9 +68,4 @@
 					 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)))))