diff --git a/collects/tests/match/plt-match-tests.ss b/collects/tests/match/plt-match-tests.ss
index 9d03c4602b..8cb13f1c0d 100644
--- a/collects/tests/match/plt-match-tests.ss
+++ b/collects/tests/match/plt-match-tests.ss
@@ -225,8 +225,9 @@
                                         other-tests 
                                         other-plt-tests
                                         )))
-  (when (getenv "PLT_TESTS")
-    (unless (parameterize ([current-output-port (open-output-string)])
-              (= 0 (run-tests)))
-      (error "Match Tests did not pass.")))
+  (if (getenv "PLT_TESTS")
+      (unless (parameterize ([current-output-port (open-output-string)])
+			    (= 0 (run-tests)))
+	      (error "Match Tests did not pass."))
+      (run-tests))
   )
\ No newline at end of file