diff --git a/racket/collects/racket/private/class-c-old.rkt b/racket/collects/racket/private/class-c-old.rkt index fef27bb4a5..f315ce5064 100644 --- a/racket/collects/racket/private/class-c-old.rkt +++ b/racket/collects/racket/private/class-c-old.rkt @@ -1699,11 +1699,8 @@ [c (in-list method-contracts)] [method-proj (in-list method-projs)]) (when c - (unless (just-check-existence? c) + (when method-proj (define i (hash-ref method-ht m)) - (define p ((contract-late-neg-projection c) - (blame-add-context blameĀ (format "the ~a method in" m) - #:important m))) (vector-set! meths i (make-method (method-proj (vector-ref meths i) neg-party) m)))))) ;; Handle external field contracts