From 9190fbade2b0534edca9ffadc4ba4e6499885988 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Fri, 15 Jul 2011 07:08:28 -0600
Subject: [PATCH] fix bug introduced in recent refactor

---
 collects/racket/contract/private/arrow.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/racket/contract/private/arrow.rkt b/collects/racket/contract/private/arrow.rkt
index 3be24c8ab2..b2309a016f 100644
--- a/collects/racket/contract/private/arrow.rkt
+++ b/collects/racket/contract/private/arrow.rkt
@@ -385,7 +385,7 @@ v4 todo:
      (define basic-checker-name 
        (if (null? req-kwd)
            (λ args
-             (unless (<= min-arity (length args) max-arity)
+             (unless (valid-number-of-args? args)
                (define args-len (length args))
                (raise-blame-error blame val
                                   "received ~a argument~a, expected ~a"