diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index b159b6858e..71b8d9c6b8 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -274,7 +274,7 @@ improve method arity mismatch contract violation error messages?
                          protected-ids contracts)
                #,@(map (λ (u)
                          #`(define-syntax #,u
-                             (make-rename-transformer #,(marker u))))
+                             (make-rename-transformer (quote-syntax #,(marker u)))))
                          unprotected)
                (define-values ()
                  (begin