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