diff --git a/racket/collects/racket/contract/private/vector-common.rkt b/racket/collects/racket/contract/private/vector-common.rkt index 8030772d3b..b1bf8a99b8 100644 --- a/racket/collects/racket/contract/private/vector-common.rkt +++ b/racket/collects/racket/contract/private/vector-common.rkt @@ -39,7 +39,7 @@ blame #:missing-party neg-party val - '(expected "an mutable vector" given: "~e") + '(expected "a mutable vector" given: "~e") val)] [else #f])] [else #t])] @@ -48,7 +48,7 @@ blame #:missing-party neg-party val - '(expected "an immutable vector" given: "~e") + '(expected "a vector" given: "~e") val)] [else #f])) diff --git a/racket/collects/racket/contract/private/vector.rkt b/racket/collects/racket/contract/private/vector.rkt index 6d16d8d225..71208befee 100644 --- a/racket/collects/racket/contract/private/vector.rkt +++ b/racket/collects/racket/contract/private/vector.rkt @@ -94,7 +94,7 @@ [else (raise-blame-error blame #:missing-party neg-party val - '(expected "a vector," given: "~e") + '(expected "a vector" given: "~e") val)]))) (define (vectorof-first-order ctc)