From ecf7f4583e4d4f17b82b992a2f4fa8edf3a11e15 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 12 Aug 2004 14:58:33 +0000
Subject: [PATCH] .

original commit: 3fb34309574c57839f34054905a29bf1179689b8
---
 collects/mzlib/contract.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/contract.ss b/collects/mzlib/contract.ss
index 7ff8732..dae01d7 100644
--- a/collects/mzlib/contract.ss
+++ b/collects/mzlib/contract.ss
@@ -664,7 +664,7 @@ add struct contracts for immutable structs?
 		 (format "broke ~a's contract:" datum)
 		 "failed contract"))])
       (raise
-       (make-exn
+       (make-exn:fail
         (string->immutable-string
          (string-append (format "~a~a: ~a ~a ~a: "
                                 blame-src