diff --git a/racket/syndicate/core.rkt b/racket/syndicate/core.rkt
index b956741..7123750 100644
--- a/racket/syndicate/core.rkt
+++ b/racket/syndicate/core.rkt
@@ -271,10 +271,17 @@
                     (transition initial-state-exp initial-action-tree-exp)
                     #f)))]))
 
-(define-syntax-rule (spawn/stateless behavior-exp initial-action-tree-exp)
-  (spawn-process (stateless-behavior-wrap behavior-exp)
-                 (void)
-                 initial-action-tree-exp))
+(define-syntax spawn/stateless
+  (syntax-rules ()
+    [(_ #:name name-exp behavior-exp initial-action-tree-exp)
+     (spawn-process #:name name-exp
+                    (stateless-behavior-wrap behavior-exp)
+                    (void)
+                    initial-action-tree-exp)]
+    [(_ behavior-exp initial-action-tree-exp)
+     (spawn-process (stateless-behavior-wrap behavior-exp)
+                    (void)
+                    initial-action-tree-exp)]))
 
 (define ((stateless-behavior-wrap b) e state)
   (match (b e)