Index: /trunk/ccl/level-1/l1-processes.lisp
===================================================================
--- /trunk/ccl/level-1/l1-processes.lisp	(revision 512)
+++ /trunk/ccl/level-1/l1-processes.lisp	(revision 513)
@@ -296,4 +296,5 @@
 		      (setq exited t)
 		      nil)
+                    (abort-break ())
 		    (abort () (setq exited t)))
 		 (process-reset (condition)
@@ -302,5 +303,5 @@
     ;; exit prematurely, or are being reset and should enter the
     ;; "awaiting preset" state.
-    (if (or kill exited)
+    (if (or kill exited) 
       (unless (eq kill :toplevel)
 	(process-initial-form-exited process (or kill t)))