diff --git a/racket/syndicate/core.rkt b/racket/syndicate/core.rkt
index d2648f6..ec0f7e8 100644
--- a/racket/syndicate/core.rkt
+++ b/racket/syndicate/core.rkt
@@ -223,7 +223,8 @@
 
 (define (disable-process pid exn w)
   (when exn
-    (log-error "Process ~a died with exception:\n~a"
+    (log-error "Process ~v ~a died with exception:\n~a"
+               (process-info-name (hash-ref (dataspace-process-table w) pid missing-process-info))
                (cons pid (trace-pid-stack))
                (exn->string exn)))
   (struct-copy dataspace w
diff --git a/racket/syndicate/trace.rkt b/racket/syndicate/trace.rkt
index df7c2e5..470a74e 100644
--- a/racket/syndicate/trace.rkt
+++ b/racket/syndicate/trace.rkt
@@ -40,10 +40,6 @@
 
 ;; Event (Option PID) Process (Option Exception) (Option Transition) -> Void
 (define (trace-process-step-result e pid beh st exn t)
-  (when exn
-    (log-error "Process ~a died with exception:\n~a"
-	       (cons-pid pid)
-	       (exn->string exn)))
   (record-trace-event 'process-step-result (list (cons-pid pid) e beh st exn t)))
 
 ;; (Option PID) Action Dataspace -> Void