diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index 36fb29b5e8..6970090e55 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -278,7 +278,7 @@ improve method arity mismatch contract violation error messages?
                (define-values ()
                  (begin
                    #,@(map (λ (p c)
-                             #`(-contract #,(marker c) #,p blame-stx 'ignored #,(id->contract-src-info p)))
+                             #`(-contract #,(marker c) #,(marker p) blame-stx 'ignored #,(id->contract-src-info p)))
                            protected-ids contracts)
                    (values)))
                )))))]