From b917d99ce09a80844d107feacd454e53f932d253 Mon Sep 17 00:00:00 2001
From: Stevie Strickland <sstrickl@racket-lang.org>
Date: Wed, 10 Mar 2010 01:10:13 +0000
Subject: [PATCH] This didn't appropriately adjust for is_method.

svn: r18499
---
 src/mzscheme/src/error.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/error.c b/src/mzscheme/src/error.c
index ac46d04000..8ae2c2fd71 100644
--- a/src/mzscheme/src/error.c
+++ b/src/mzscheme/src/error.c
@@ -1006,7 +1006,8 @@ static char *make_arity_expect_string(const char *name, int namelen,
       Scheme_Object *arity;
       arity = scheme_arity((Scheme_Object *)name);
       if (SCHEME_INTP(arity)) {
-        xminc = xmaxc = minc = maxc = SCHEME_INT_VAL(arity);
+        minc = maxc = SCHEME_INT_VAL(arity);
+        xmaxc = xminc = minc - (is_method ? 1 : 0);
         name = scheme_get_proc_name((Scheme_Object *)name, &namelen, 1);
         if (!name) {
           name = "#<procedure>";