diff --git a/collects/typed-scheme/private/tc-toplevel.ss b/collects/typed-scheme/private/tc-toplevel.ss
index 917f7532f3..a681733716 100644
--- a/collects/typed-scheme/private/tc-toplevel.ss
+++ b/collects/typed-scheme/private/tc-toplevel.ss
@@ -240,5 +240,6 @@
 ;; syntax -> void
 (define (tc-toplevel-form form)
   (tc-toplevel/pass1 form)  
-  (tc-toplevel/pass2 form))
+  (begin0 (tc-toplevel/pass2 form)
+          (report-all-errors)))