From 66d6de639457d2f6e5b2f9fdcdcb539064212289 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Mon, 18 Jan 2016 10:05:23 -0600
Subject: [PATCH] avoid putting tail marks on when we know they are already
 there

---
 racket/collects/racket/contract/private/arrow-higher-order.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/collects/racket/contract/private/arrow-higher-order.rkt b/racket/collects/racket/contract/private/arrow-higher-order.rkt
index f81241a674..b46187c505 100644
--- a/racket/collects/racket/contract/private/arrow-higher-order.rkt
+++ b/racket/collects/racket/contract/private/arrow-higher-order.rkt
@@ -288,7 +288,7 @@
                                        #,the-call/no-tail-mark))
                                  (cond
                                    [(null? (syntax-e stuff)) ;; surely there must a better way
-                                    the-call]
+                                    the-call/no-tail-mark]
                                    [else
                                     (wrap-call-with-values-and-range-checking
                                      the-call