diff --git a/collects/mred/private/wxtextfield.rkt b/collects/mred/private/wxtextfield.rkt
index 4ff6f54bbb..a8e0c10660 100644
--- a/collects/mred/private/wxtextfield.rkt
+++ b/collects/mred/private/wxtextfield.rkt
@@ -257,8 +257,9 @@
       (private
         [do-popup-callback (lambda ()
                              (wx:queue-callback (lambda ()
-                                                  (combo-callback)
-                                                  (send c popup-combo))
+                                                  (when (send c is-enabled-to-root?)
+                                                    (combo-callback)
+                                                    (send c popup-combo)))
                                                 wx:middle-queue-key))])
       (public
         [set-on-popup (lambda (proc)