diff --git a/collects/typed-racket/optimizer/tool/hidden-costs.rkt b/collects/typed-racket/optimizer/tool/hidden-costs.rkt
index e7be29aa7f..9e8ab6e137 100644
--- a/collects/typed-racket/optimizer/tool/hidden-costs.rkt
+++ b/collects/typed-racket/optimizer/tool/hidden-costs.rkt
@@ -40,7 +40,7 @@
                (list (missed-opt-report-entry
                       (log-entry-located-stx info-entry)
                       message
-                      'typed-racket
+                      'hidden-cost
                       badness
                       '())) ; no irritants to highlight
                start end
diff --git a/collects/typed-racket/optimizer/tool/tool.rkt b/collects/typed-racket/optimizer/tool/tool.rkt
index 219fe8bab0..728b2a091f 100644
--- a/collects/typed-racket/optimizer/tool/tool.rkt
+++ b/collects/typed-racket/optimizer/tool/tool.rkt
@@ -21,6 +21,9 @@
                     [_ #f]))
     ("Report inlining optimizations?" .
      ,(match-lambda [(sub-report-entry s m 'mzc) #t]
+                    [_ #f]))
+    ("Report hidden costs?" .
+     ,(match-lambda [(sub-report-entry s m 'hidden-cost) #t]
                     [_ #f]))))
 
 (define (copy-definitions definitions)