From 984dd9daffe15672c4987a3dd7839cdc81498b44 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 15 Aug 2000 20:52:17 +0000
Subject: [PATCH] .

original commit: b52c12cc3707d812b821618fefc8942d62637c37
---
 src/mred/wrap/mred.ss | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index e21693d6..16ab5b80 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -1323,10 +1323,8 @@
 		 (lambda ()
 		   (let ([mred (get-mred)])
 		     (if mred
-			 (if (and (eq? 'windows (system-type))
-				  (not (eq? (wx:current-eventspace)
-					    (ivar (get-top-level) eventspace))))
-			     ;; Windows circumvented event queue, so delay
+			 (if (eq? 'windows (system-type))
+			     ;; Windows can circumvent the event queue, so delay
 			     (queue-window-callback
 			      this
 			      (lambda () (send mred on-paint)))