diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index 0b122dccae..26b6ed81a7 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -607,7 +607,7 @@ improve method arity mismatch contract violation error messages?
                (define-syntaxes (u ... p ...)
                  (values (make-rename-transformer #'marked-u) ...
                          (make-with-contract-transformer
-                          (quote-syntax ctc)
+                          (quote-syntax ctc-id)
                           (quote-syntax marked-p)
                           (quote-syntax blame-stx)) ...)))))))]
     [(_ #:type type blame (arg ...) #:freevar x c . body)