diff --git a/collects/scheme/private/contract.ss b/collects/scheme/private/contract.ss
index 63b4a932f4..743ff5fff8 100644
--- a/collects/scheme/private/contract.ss
+++ b/collects/scheme/private/contract.ss
@@ -265,7 +265,8 @@ improve method arity mismatch contract violation error messages?
                             #`(-contract contract-id
                                          id
                                          pos-module-source
-                                         (module-source-as-symbol #'name)
+                                         (or '#,(syntax-parameter-value #'current-contract-region)
+                                             (module-source-as-symbol #'name))
                                          #,(id->contract-src-info #'id))))))])
                (when key
                  (hash-set! saved-id-table key lifted-id))