From f9f77329a7945cc0d6aab6b447d453a1753166bf Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 20 Dec 2015 07:43:24 -0600
Subject: [PATCH] unbreak mzlib/contract's version of object-contract

---
 compatibility-lib/mzlib/private/contract-object.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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