diff --git a/collects/racket/contract/private/arrow.rkt b/collects/racket/contract/private/arrow.rkt
index 7655691c2d..5404adf463 100644
--- a/collects/racket/contract/private/arrow.rkt
+++ b/collects/racket/contract/private/arrow.rkt
@@ -390,7 +390,7 @@ v4 todo:
            (λ (kwds kwd-args . args)
              (define args-len (length args))
              (unless (valid-number-of-args? args)
-               (raise-blame-error blame val
+               (raise-blame-error (blame-swap blame) val
                                   "received ~a argument~a, expected ~a"
                                   args-len (if (= args-len 1) "" "s") arity-string))
              
@@ -398,12 +398,12 @@ v4 todo:
              ;; (since the keyword lists are sorted)
              (for ([req-kwd (in-list req-kwd)])
                (unless (memq req-kwd kwds)
-                 (raise-blame-error blame val
+                 (raise-blame-error (blame-swap blame) val
                                     "expected keyword argument ~a"
                                     req-kwd)))
              (for ([k (in-list kwds)])
                (unless (memq k all-kwds)
-                 (raise-blame-error blame val
+                 (raise-blame-error (blame-swap blame) val
                                     "received unexpected keyword argument ~a"
                                     k)))
              (keyword-apply kwd-lambda kwds kwd-args args))))
@@ -412,7 +412,7 @@ v4 todo:
            (λ args
              (unless (valid-number-of-args? args)
                (define args-len (length args))
-               (raise-blame-error blame val
+               (raise-blame-error (blame-swap blame) val
                                   "received ~a argument~a, expected ~a"
                                   args-len (if (= args-len 1) "" "s") arity-string))
              (apply basic-lambda args))
diff --git a/collects/tests/racket/contract-test.rktl b/collects/tests/racket/contract-test.rktl
index f112759d0e..069a9484cd 100644
--- a/collects/tests/racket/contract-test.rktl
+++ b/collects/tests/racket/contract-test.rktl
@@ -1118,6 +1118,12 @@
    'contract-arrow4
    '((contract (integer? . -> . integer?) (lambda (x) #f) 'pos 'neg) 1))
 
+  (test/neg-blame
+   'contract-arrow-arity1
+   '((contract (-> number? number? number?)
+               (λ (x . r) x)
+              'pos 'neg) 
+    1))
 
   (test/spec-passed
    'contract-arrow-any1