diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt
index 785f540..7c3f869 100644
--- a/syndicate/syntax.rkt
+++ b/syndicate/syntax.rkt
@@ -320,8 +320,9 @@
                                               (schedule-script!
                                                #:priority #,priority-stx
                                                (current-dataspace)
-                                               (lambda ()
-                                                 #,script-stx))))))))]
+                                               #,(quasisyntax/loc script-stx
+                                                   (lambda ()
+                                                     #,script-stx)))))))))]
     [(asserted P)
      (analyze-asserted/retracted outer-expr-stx when-pred-stx script-stx #t #'P priority-stx)]
     [(retracted P)
@@ -348,8 +349,9 @@
                                            (schedule-script!
                                             #:priority #,priority-stx
                                             (current-dataspace)
-                                            (lambda ()
-                                              #,script-stx)))))))))
+                                            #,(quasisyntax/loc script-stx
+                                                (lambda ()
+                                                  #,script-stx))))))))))
 
 ;; (define-syntax (during stx)
 ;;   (syntax-parse stx