From 56bb4539d0a06812b45fc974fba98ba0d2971b29 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 3 Mar 2009 02:41:00 +0000
Subject: [PATCH] fix error message

svn: r13906
---
 collects/scheme/list.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/collects/scheme/list.ss b/collects/scheme/list.ss
index 430b7bafd1..ec13a28140 100644
--- a/collects/scheme/list.ss
+++ b/collects/scheme/list.ss
@@ -86,9 +86,9 @@
 (define (too-large who list n)
   (raise-mismatch-error
    who
-   (format "index ~e too large for list~a: ~e"
-           n (if (list? list) "" " (not a proper list)") list)
-   n))
+   (format "index ~e too large for list~a: "
+           n (if (list? list) "" " (not a proper list)"))
+   list))
 
 (define (take list0 n0)
   (unless (exact-nonnegative-integer? n0)