From add4f479c6fe5296d074a470fbe0e9bc8271d4ff Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 21 Dec 2009 06:25:53 +0000
Subject: [PATCH] fix error

svn: r17375
---
 collects/scheme/foreign.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/scheme/foreign.ss b/collects/scheme/foreign.ss
index 1c1f74ccec..0e0df319b2 100644
--- a/collects/scheme/foreign.ss
+++ b/collects/scheme/foreign.ss
@@ -591,7 +591,7 @@
         (define-syntax-rule (kwds [key var] ...)
           (case k
             [(key) (if var
-                     (err (format "got a second ~s keyword") 'key (car xs))
+                     (err (format "got a second ~s keyword" 'key) (car xs))
                      (begin (set! var (cadr xs)) (set! xs (cddr xs)) (loop)))]
             ...
             [else (err "unknown keyword" (car xs))]))