diff --git a/racket/syndicate/supervise.rkt b/racket/syndicate/supervise.rkt
index 3dfb3de..804d781 100644
--- a/racket/syndicate/supervise.rkt
+++ b/racket/syndicate/supervise.rkt
@@ -25,7 +25,8 @@
   ;; Awkward: the name applies to any and all potential supervisors
   ;; produced by actor spawns in actor-producing-thunk.
   (with-store [(current-action-transformer
-                (supervise-spawn supervisor-name (current-action-transformer)))]
+                (supervise-spawn (or supervisor-name (gensym 'supervisor))
+                                 (current-action-transformer)))]
     (actor-producing-thunk)))
 
 (define ((supervise-spawn supervisor-name previous-action-transformer) ac)