..

original commit: 85f2edea57ebd37afc45c8cc700988a089212bea
2002-08-27 03:42:20 +00:00 · 2002-08-27 03:42:20 +00:00 · c57f3501b3
commit c57f3501b3
parent 3dce14aa40
1 changed files with 1 additions and 1 deletions
--- 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