diff --git a/collects/tests/units/test-unit-contracts.rktl b/collects/tests/units/test-unit-contracts.rktl index 6d89cc7f3f..3317a10fa7 100644 --- a/collects/tests/units/test-unit-contracts.rktl +++ b/collects/tests/units/test-unit-contracts.rktl @@ -6,8 +6,8 @@ (define top-level "top-level") (define (match-blame re msg) - (or (regexp-match? (format "blaming ~a" re) msg) - (regexp-match? (format "self-contract violation:.*blaming ~a" re) msg))) + (or (regexp-match? (format "blaming: ~a" re) msg) + (regexp-match? (format "self-contract violation:.*blaming: ~a" re) msg))) (define (match-obj re msg) (or (regexp-match? (format "~a: contract violation" re) msg)