diff --git a/collects/errortrace/stacktrace.ss b/collects/errortrace/stacktrace.ss
index 28a9c2e5e2..51c795f48e 100644
--- a/collects/errortrace/stacktrace.ss
+++ b/collects/errortrace/stacktrace.ss
@@ -90,7 +90,7 @@
                                   #f key (quote-syntax here))]
                             [body body]
                             [test-covered test-covered])
-                #'(begin (test-covered 'key) body)))
+                #'(begin (#%plain-app test-covered 'key) body)))
             body))
 
       ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;