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