diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt
index aca7c92..429a558 100644
--- a/syndicate/syntax.rkt
+++ b/syndicate/syntax.rkt
@@ -203,9 +203,10 @@
                                           (match-define (list #,@(analyse-pattern-bindings #'pat)) bindings)
                                           expr ...)))))])))
 
-(define (during* f)
+(define (during* f #:name [name '?])
   (define assertion-map (make-hash))
-  (entity #:assert
+  (entity #:name name
+          #:assert
           (action (value handle)
             (let ((facet (react (facet-prevent-inert-check! this-facet)
                                 (f this-turn value))))