diff --git a/collects/mred/private/wxme/editor-canvas.rkt b/collects/mred/private/wxme/editor-canvas.rkt
index fdd03f9cd0..30cf301283 100644
--- a/collects/mred/private/wxme/editor-canvas.rkt
+++ b/collects/mred/private/wxme/editor-canvas.rkt
@@ -297,14 +297,17 @@
        (lambda ()
          (unless (and media
                       (send media get-printing))
-           (begin-refresh-sequence)
-           (let-boxes ([w 0]
-                       [h 0])
-               (get-size w h)
-             (unless (and (= w lastwidth)
-                          (= h lastheight))
-               (reset-size)))
-           (end-refresh-sequence))))))
+           (maybe-reset-size))))))
+
+  (define/private (maybe-reset-size)
+    (begin-refresh-sequence)
+    (let-boxes ([w 0]
+                [h 0])
+        (get-size w h)
+      (unless (and (= w lastwidth)
+                   (= h lastheight))
+        (reset-size)))
+    (end-refresh-sequence))
 
   (define/private (reset-size)
     (reset-visual #f)
@@ -934,6 +937,8 @@
     (let ([savenoloop? noloop?])
       (set! noloop? #t)
       
+      (maybe-reset-size)
+
       (when (and (x . > . -1)
                  (not fake-x-scroll?))
         (when (positive? scroll-width)