diff --git a/collects/typed-scheme/private/check-subforms-unit.ss b/collects/typed-scheme/private/check-subforms-unit.ss
index 059ed0c882..3b3a5caeed 100644
--- a/collects/typed-scheme/private/check-subforms-unit.ss
+++ b/collects/typed-scheme/private/check-subforms-unit.ss
@@ -90,7 +90,7 @@
            (loop #'a)
            (loop #'b))]
         [_ (void)])))
-  expected)
+  (ret expected))
 
 ;; typecheck the expansion of a with-handlers form
 ;; syntax -> type