diff --git a/syndicate-ssh/ssh-exceptions.rkt b/syndicate-ssh/ssh-exceptions.rkt
index da65fcc..2f1eb61 100644
--- a/syndicate-ssh/ssh-exceptions.rkt
+++ b/syndicate-ssh/ssh-exceptions.rkt
@@ -35,5 +35,8 @@
 				format-string
 				. args)
   (define message (apply format format-string args))
-  (spawn (at ds (assert (protocol-error reason-code message local-info originated-at-peer?))))
+  (escape-pod
+   (lambda ()
+     (spawn #:name (list 'protocol-error reason-code message)
+            (at ds (assert (protocol-error reason-code message local-info originated-at-peer?))))))
   (error 'protocol-error "(~a) ~a: ~v" reason-code message local-info))