diff --git a/racket/collects/racket/contract/private/object.rkt b/racket/collects/racket/contract/private/object.rkt
index 329a0ff6e8..0f19692ff5 100644
--- a/racket/collects/racket/contract/private/object.rkt
+++ b/racket/collects/racket/contract/private/object.rkt
@@ -65,9 +65,9 @@
      (define mtd-ctcs (object-contract-method-ctcs ctc))
      (λ (blame)
        (define p-app
-         (make-wrapper-object blame mtds mtd-ctcs))
+         (make-wrapper-object blame mtds mtd-ctcs flds fld-ctcs))
        (λ (val neg-party)
-         (p-app ctc val neg-party flds fld-ctcs))))
+         (p-app ctc val neg-party))))
    #:name
    (λ (ctc) `(object-contract ,@(map (λ (fld ctc) (build-compound-type-name 'field fld ctc))
                                      (object-contract-fields ctc)