From 57bbeada6fb041333639d5951d8a3c28ba48caf8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 20 Nov 2002 14:34:00 +0000
Subject: [PATCH] ..

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

diff --git a/collects/mzlib/contracts.ss b/collects/mzlib/contracts.ss
index a63857d..ff0621e 100644
--- a/collects/mzlib/contracts.ss
+++ b/collects/mzlib/contracts.ss
@@ -67,7 +67,7 @@
                        [else "<<unknown>>"])))
                  
                  (with-syntax ([neg-blame-str (build-src-loc-string/unk stx)])
-                   (syntax-case stx ()
+                   (syntax-case stx (set!)
                      [(set! _ arg) 
                       (raise-syntax-error 'define/contract
                                           "cannot set! a define/contract variable"