diff --git a/collects/typed-racket/optimizer/tool/report.rkt b/collects/typed-racket/optimizer/tool/report.rkt
index faac4e70da..67abd9c9a5 100644
--- a/collects/typed-racket/optimizer/tool/report.rkt
+++ b/collects/typed-racket/optimizer/tool/report.rkt
@@ -10,7 +10,8 @@
          (struct-out sub-report-entry)
          (struct-out opt-report-entry)
          (struct-out missed-opt-report-entry)
-         generate-report)
+         generate-report
+         collapse-report)
 
 ;; Similar to the log-entry family of structs, but geared towards GUI display.
 ;; Also designed to contain info for multiple overlapping log entries.
@@ -25,10 +26,9 @@
 (struct missed-opt-report-entry sub-report-entry (badness irritants))
 
 (define (generate-report this)
-  (collapse-report
-   (log->report
-    (post-process-inline-log
-     (generate-log this)))))
+  (log->report
+   (post-process-inline-log
+    (generate-log this))))
 
 
 (define (generate-log this)
diff --git a/collects/typed-racket/optimizer/tool/tool.rkt b/collects/typed-racket/optimizer/tool/tool.rkt
index e1fa5feccf..261981d3cd 100644
--- a/collects/typed-racket/optimizer/tool/tool.rkt
+++ b/collects/typed-racket/optimizer/tool/tool.rkt
@@ -48,7 +48,7 @@
            (list start end color))]))
 
     (define/public (add-highlights)
-      (define report (generate-report this))
+      (define report (collapse-report (generate-report this)))
       (define max-badness
         (apply max (cons 0 (map report-entry-badness report))))
       (unless (= max-badness 0) ; no missed opts, color table code would error