diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 60e4dd8a..2a4c2f3b 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -630,8 +630,8 @@
 		      (set! was-bad? #t)
 		      (set! already-trying? #t)
 		      (set-size -1 -1 correct-w correct-h)
-		      (when was-bad? (resized))
-		      (set! already-trying? #f))))))))])
+		      (set! already-trying? #f)
+		      (when was-bad? (resized)))))))))])
       
     (override
       ; show: add capability to set perform-updates