From c57f3501b3b74ba3bd1ae69901a8f7bbf61a1520 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Tue, 27 Aug 2002 03:42:20 +0000
Subject: [PATCH] ..

original commit: 85f2edea57ebd37afc45c8cc700988a089212bea
---
 collects/tests/mzscheme/contracts.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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