diff --git a/collects/scheme/contract/regions.ss b/collects/scheme/contract/regions.ss
index 6058deee3a..68edea0844 100644
--- a/collects/scheme/contract/regions.ss
+++ b/collects/scheme/contract/regions.ss
@@ -345,7 +345,8 @@
                                   #:guard (contract (-> super-contracts ... non-auto-contracts ... symbol? any)
                                                     guard
                                                     (current-contract-region) blame-id
-                                                    #'maker)))))))))]
+                                                    (quote maker)
+                                                    (quote-srcloc maker))))))))))]
     [(_ name . bad-fields)
      (identifier? #'name)
      (syntax-error "expected a list of field name/contract pairs"