diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index 61f804f9d6..24c9653e9b 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -142,7 +142,7 @@ improve method arity mismatch contract violation error messages?
                         id
                         pos-blame-id
                         'neg-blame-id
-                        (quote-syntax #,(id->contract-src-info #'f)))
+                        (quote-syntax f))
              arg ...))]
          [ident
           (identifier? (syntax ident))
@@ -151,7 +151,7 @@ improve method arity mismatch contract violation error messages?
                        id
                        pos-blame-id
                        'neg-blame-id
-                       (quote-syntax #,(id->contract-src-info #'ident))))])))))
+                       (quote-syntax ident)))])))))
 
 (define-for-syntax (check-and-split-with-contract-args args)
   (let loop ([args args]