diff --git a/collects/typed-racket/optimizer/tool/display.rkt b/collects/typed-racket/optimizer/tool/display.rkt
index f63f387070..4d485b34bc 100644
--- a/collects/typed-racket/optimizer/tool/display.rkt
+++ b/collects/typed-racket/optimizer/tool/display.rkt
@@ -15,7 +15,7 @@
 
 (define ((popup-callback entry) ed start end)
   (match-define (report-entry subs start end badness) entry)
-  (define win (new dialog% [label "Performance Report"]
+  (define win (new frame% [label "Performance Report"]
                    [width popup-width] [height popup-height]))
   (define pane (new text% [auto-wrap #t]))
   (define canvas