diff --git a/collects/typed-racket/optimizer/tool/tool.rkt b/collects/typed-racket/optimizer/tool/tool.rkt
index 61dc5db939..ffbd940a16 100644
--- a/collects/typed-racket/optimizer/tool/tool.rkt
+++ b/collects/typed-racket/optimizer/tool/tool.rkt
@@ -58,7 +58,7 @@
           (cond
             [(null? report) highlights]
             [else (cons (highlight-entry (car report))
-                        (loop (cdr reports)))])))
+                        (loop (cdr report)))])))
       (set! highlights new-highlights))
 
     (define/private (clear-highlights)