From 82bec9241824ff9620b5226b2b4184f13063c887 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 20 Sep 2012 09:29:34 -0600
Subject: [PATCH] error message fix

---
 src/racket/src/error.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/error.c b/src/racket/src/error.c
index ec00fee0ff..837ac566ce 100644
--- a/src/racket/src/error.c
+++ b/src/racket/src/error.c
@@ -2389,13 +2389,16 @@ void scheme_wrong_return_arity(const char *where,
 			"%s%sresult arity mismatch;\n"
                         " expected number of values not received\n"
                         "  expected: %d\n"
-			"  received: %d" "%t\n"
+			"  received: %d\n"
+                        "%s%t%s"
                         "  values...:%t",
 			where ? where : "",
 			where ? ": " : "",
 			expected,
 			got,
+                        slen ? "  from: " : "",
 			s, slen,
+                        slen ? "\n" : "",
 			v, vlen);
 
   scheme_raise_exn(MZEXN_FAIL_CONTRACT_ARITY,