diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index 26b6ed81a7..7c631d9be0 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -569,7 +569,7 @@ improve method arity mismatch contract violation error messages?
                        [(ctc ...) (map marker protections)]
                        [(p ...) protected]
                        [(marked-p ...) (map marker protected)]
-                       [(src-info ...) (map id->contract-src-info protected)]
+                       [(src-info ...) (map (compose id->contract-src-info marker) protected)]
                        [(u ...) unprotected]
                        [(marked-u ...) (map marker unprotected)])
            (quasisyntax/loc stx