diff --git a/collects/racket/contract/private/legacy.rkt b/collects/racket/contract/private/legacy.rkt index a8b9310d12..e919c7e27a 100644 --- a/collects/racket/contract/private/legacy.rkt +++ b/collects/racket/contract/private/legacy.rkt @@ -58,8 +58,7 @@ name (unpack-blame (if original? pos neg)) (unpack-blame (if original? neg pos)) - original? - (unpack-blame (if original? neg pos))))))) + original?))))) (define (legacy-property name) (define-values [ prop pred get ]