diff --git a/compatibility-lib/mzlib/private/contract-object.rkt b/compatibility-lib/mzlib/private/contract-object.rkt
index c2b6906..f72dce0 100644
--- a/compatibility-lib/mzlib/private/contract-object.rkt
+++ b/compatibility-lib/mzlib/private/contract-object.rkt
@@ -287,7 +287,7 @@
                    #:projection
                    (lambda (blame)
                      (lambda (val)
-                       (make-wrapper-object ctc val blame
+                       (make-wrapper-object ctc val blame #f
                                             (list 'method-name ...) (list method-ctc-var ...)
                                             (list 'field-name ...) (list field-ctc-var ...))))
                    #:first-order