diff --git a/collects/mzlib/private/contract-arr-obj-helpers.ss b/collects/mzlib/private/contract-arr-obj-helpers.ss
index de1788c..ea6d71c 100644
--- a/collects/mzlib/private/contract-arr-obj-helpers.ss
+++ b/collects/mzlib/private/contract-arr-obj-helpers.ss
@@ -888,7 +888,7 @@
                  (syntax
                   ((x ...)
                    (begin
-                     (check-pre-expr->pp/h val pre-expr blame)
+                     (check-pre-expr->pp/h val pre-expr (blame-swap blame))
                      (let ([dom-id ((contract-projection (coerce-contract 'stx-name dom)) 
                                     (blame-swap blame))]
                            ...)