diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt
index 1bf613ba6f..917322e098 100644
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/optimizer.rkt
@@ -76,7 +76,7 @@
   (pattern (~and ((~or #%provide #%require begin-for-syntax define-syntaxes module module*)
                   . _)
                  opt))
-  (pattern (~and (~or (quote _) (quote-syntax _) :id) opt)))
+  (pattern (~and (~or (quote _) (quote-syntax _) (#%top . _) :id) opt)))
 
 (define (optimize-top stx)
   (parameterize ([optimize (syntax-parser [e:opt-expr* #'e.opt])])