diff --git a/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt b/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt
index ca4d37cd..73fe4be1 100644
--- a/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt
+++ b/collects/typed-racket/typecheck/tc-app/tc-app-hetero.rkt
@@ -89,7 +89,7 @@
        name (match i-t [(tc-result1: t) t]))]
     [else
      (single-value val-e)
-     (index-error i-val i-bound i-e vec-t expected) name]))
+     (index-error i-val i-bound i-e vec-t expected name)]))
 
 (define (tc/app-hetero form expected)
   (syntax-parse form