diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.ss
index ee58ba9e02..41023d5ed0 100644
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@@ -5261,7 +5261,7 @@
          #:projection
          (lambda (blame)
            (lambda (x)
-             (if blame 'positive 'negative)))))
+             (if (blame-swapped? blame) 'negative 'positive)))))
 
       (define call*0 'dummy)
       (define (call*1 x0) x0)