From d5713cf18b17214ff78bdd396e70c17c6b17508f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 23 Jun 2012 04:17:37 -0700
Subject: [PATCH] error-message repair

---
 src/racket/src/error.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/racket/src/error.c b/src/racket/src/error.c
index f0c97f3713..cad46de6b4 100644
--- a/src/racket/src/error.c
+++ b/src/racket/src/error.c
@@ -2018,12 +2018,11 @@ void scheme_read_err(Scheme_Object *port,
 		       ? MZEXN_FAIL_READ_NON_CHAR 
 		       : MZEXN_FAIL_READ)),
 		   scheme_make_pair(loc, scheme_null),
-		   "%t%s%t%s%s%s",
-                   fn, fnlen,
+		   "%t%s%s%t%s%s",
+                   fn, fnlen, ls,
                    fnlen ? ": " : "",
 		   s, slen, 
-                   (*suggests ? "\n  possible cause: " : ""), suggests,
-                   ls);
+                   (*suggests ? "\n  possible cause: " : ""), suggests);
 }
 
 static void do_wrong_syntax(const char *where,