.

original commit: 133027748c8f9b1539a8911304dbb422f2657b22

src/mred/wrap/mred.ss

@@ -637,7 +637,7 @@
 		      (set! already-trying? #t)
 		      (set-size -1 -1 correct-w correct-h)
 		      (set! already-trying? #f)
-		      (when was-bad? (resized)))))))))])
+		      (resized))))))))])
       
     (override
       ; show: add capability to set perform-updates
@@ -687,8 +687,9 @@
       ;            independently.
       [on-size
        (lambda (bad-width bad-height)
+	 (unless already-trying?
 	   (parameterize ([wx:current-eventspace eventspace])
-	   (wx:queue-callback resized #t)))])
+	     (wx:queue-callback resized #t))))])
 
     (public
       [handle-traverse-key