From 074be235b4427530b4967fcc898fc4a1860229e5 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 14 Jan 2009 19:26:03 +0000
Subject: [PATCH] fixed a bug

svn: r13119
---
 collects/redex/private/traces.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/redex/private/traces.ss b/collects/redex/private/traces.ss
index 070bec528b..4ac5cca69d 100644
--- a/collects/redex/private/traces.ss
+++ b/collects/redex/private/traces.ss
@@ -549,8 +549,8 @@
               (list bottom-panel)
               null)))
   (out-of-dot-state) ;; make sure the state is initialized right
+  (set-font-size (initial-font-size)) ;; have to call this before 'insert-into' or else it triggers resizing
   (insert-into init-rightmost-x 0 graph-pb frontier)
-  (set-font-size (initial-font-size))
   (cond
     [no-show-frame?
      (let ([s (make-semaphore)])