diff --git a/collects/tests/typed-scheme/optimizer/run.rkt b/collects/tests/typed-scheme/optimizer/run.rkt
index 17e85be4..d9060929 100644
--- a/collects/tests/typed-scheme/optimizer/run.rkt
+++ b/collects/tests/typed-scheme/optimizer/run.rkt
@@ -25,10 +25,9 @@
 ;; the optimizations we expected did indeed happen
 (define (compare-logs name dir)
   (test-suite "Log Comparison"
-              (check-equal?
-               ;; ugly, but otherwise rackunit spews the entire logs to
-               ;; stderr, and they can be quite long
-               #t
+              ;; ugly, but otherwise rackunit spews the entire logs to
+              ;; stderr, and they can be quite long
+              (check-true
                (equal?
                 ;; actual log
                 (with-input-from-string