diff --git a/collects/mzlib/private/contract-object.ss b/collects/mzlib/private/contract-object.ss
index f1e4c1d..7b7579f 100644
--- a/collects/mzlib/private/contract-object.ss
+++ b/collects/mzlib/private/contract-object.ss
@@ -294,7 +294,7 @@
                                           (list 'field-name ...) (list field-ctc-var ...))))
                  #:first-order
                  (lambda (val)
-                   (make-wrapper-object obj #f (list 'method-name ...) (list 'field-name ...))))))))]))))
+                   (check-object-contract val #f (list 'method-name ...) (list 'field-name ...))))))))]))))
 
 
 (define (check-object val blame)