diff --git a/collects/tests/mzscheme/contracts.ss b/collects/tests/mzscheme/contracts.ss
index 7bf68aa..a381ba3 100644
--- a/collects/tests/mzscheme/contracts.ss
+++ b/collects/tests/mzscheme/contracts.ss
@@ -17,7 +17,7 @@
   (define (test/spec-failed name expression blame)
     (define (failed-contract x)
       (and (string? x)
-	   (let ([m (regexp-match ": (.*) failed contract:" x)])
+	   (let ([m (regexp-match ": ([^ ]*) broke" x)])
 	     (and m (cadr m)))))
     (test blame
           failed-contract