diff --git a/collects/stxclass/private/codegen.ss b/collects/stxclass/private/codegen.ss
index 5bb8d59758..7d9d458f03 100644
--- a/collects/stxclass/private/codegen.ss
+++ b/collects/stxclass/private/codegen.ss
@@ -113,9 +113,8 @@
      (let ([inner
             (wrap-pvars (pattern-attrs p)
                         (convert-sides rest main-var body-expr))])
-       (with-syntax ([(x fail-k) (generate-temporaries #'(x fail-k))]
-                     [with-rhs (syntax/loc e with-rhs)])
-         #`(let ([x (datum->syntax #f #,e (quote-syntax with-rhs))]
+       (with-syntax ([(x fail-k) (generate-temporaries #'(x fail-k))])
+         #`(let ([x #,e]
                  [fail-k enclosing-fail])
              #,(parse:pks (list #'x)
                           (list (done-frontier #'x))