diff --git a/src/code/multi-proc.lisp b/src/code/multi-proc.lisp
index 4e2b1bcd78007a01fa3a3e7333f9f4a18a1c4eef..c73f0b41afe11e71d4af65c7a10180e0eeafde0e 100644
--- a/src/code/multi-proc.lisp
+++ b/src/code/multi-proc.lisp
@@ -1044,7 +1044,9 @@
 	   (process-interrupts process))
      ;; Ensure that the process is active so that it can accept this
      ;; interrupt.
-     (setf (process-state process) :active)))
+     (setf (process-state process) :active
+          (process-%arrest-reasons process) nil)
+     (push :destroyed (process-%run-reasons process))))
   ;; Should we wait until it's dead?
   (process-yield))