(defun proc1 (pid)
  (progn
    (block)
    (send pid 'im-done)))


(def id (spawn-trap proc1 (self)))
(unblock-error id)

(check (recv ((exit-error (? tid) (? e)) 't)
             ((exit-ok    (? tid) (? r)) 'nil)
             (im-done 'this-can-not-happen)))