diff --git a/collects/tests/racket/contract-mzlib-test.rktl b/collects/tests/racket/contract-mzlib-test.rktl
index 61a3953..011562f 100644
--- a/collects/tests/racket/contract-mzlib-test.rktl
+++ b/collects/tests/racket/contract-mzlib-test.rktl
@@ -4521,7 +4521,7 @@ so that propagation occurs.
   (ctest #t contract-first-order-passes? 
         (cons/c boolean? (-> integer? integer?))
         (list* #t (λ (x) x)))
-  (ctest #t contract-first-order-passes? 
+  (ctest #f contract-first-order-passes? 
         (cons/c boolean? (-> integer? integer?))
         (list* 1 2))