diff --git a/s/syntax.ss b/s/syntax.ss
index 38bc19d9df..ed23f37074 100644
--- a/s/syntax.ss
+++ b/s/syntax.ss
@@ -9391,7 +9391,7 @@
                    (begin
                      (when (any-set? keys-seen (clause-key nongenerative))
                        (syntax-error src "record definition has multiple nongenerative clauses"))
-                     (Mclause parse-clauses ([%uid (datum->syntax #'* (gensym (symbol->string (syntax->datum name))))])
+                     (Mclause parse-clauses ([%uid (datum->syntax #'* ((current-generate-id) (syntax->datum name)))])
                        (set-flags keys-seen (clause-key nongenerative))
                        (cdr clause*)))]
                   [(nongenerative id)