From 9221c7703d671ee53ba6288ce55861334e02afde Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 12 Jun 2006 12:01:38 +0000
Subject: [PATCH] typo

svn: r3338
---
 src/mzscheme/src/syntax.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/syntax.c b/src/mzscheme/src/syntax.c
index c9f1e409a2..74f7bd923b 100644
--- a/src/mzscheme/src/syntax.c
+++ b/src/mzscheme/src/syntax.c
@@ -607,7 +607,7 @@ void scheme_set_global_bucket(char *who, Scheme_Bucket *b, Scheme_Object *val,
 		       ((Scheme_Bucket_With_Home *)b)->home->module->modname);
     } else {
       scheme_raise_exn(MZEXN_FAIL_CONTRACT_VARIABLE, b->key,
-		       "%s: cannot set %s identifier: %S",
+		       "%s: cannot %s identifier: %S",
 		       who,
 		       b->val ? "change constant" : "set undefined",
 		       (Scheme_Object *)b->key);