From f27be30c1514efe762fb8a11dfc9706c2e769b1f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 23 May 2017 08:16:34 -0600
Subject: [PATCH] fix error message

---
 racket/src/racket/src/fun.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/racket/src/racket/src/fun.c b/racket/src/racket/src/fun.c
index 98277003b4..8de905c00a 100644
--- a/racket/src/racket/src/fun.c
+++ b/racket/src/racket/src/fun.c
@@ -3862,15 +3862,14 @@ Scheme_Object *extract_impersonator_results(int c, int argc, Scheme_Object **arg
     scheme_raise_exn(MZEXN_FAIL_CONTRACT,
                      "procedure %s: wrapper's %s result is not valid;\n"
                      " %s extra result (before original argument count) should be\n"
-                     " 'mark%s'parameter%s\n"
+                     " 'mark%s\n"
                      "  original: %V\n"
                      "  wrapper: %V\n"
                      "  received: %V",
                      what,
                      nth,
                      nth,
-                     (i ? " or " : ", "),
-                     (i ? "" : ", or a wrapper for the original procedure's result"),
+                     (i ? "" : " or a wrapper for the original procedure's result"),
                      o,
                      SCHEME_VEC_ELS(px->redirects)[0],
                      argv2[i]);