diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt
index 95dec42ed3..83e32277ed 100644
--- a/collects/drracket/private/unit.rkt
+++ b/collects/drracket/private/unit.rkt
@@ -2813,7 +2813,10 @@ module browser threading seems wrong.
                 text-port
                 #t
                 (λ ()
-                  (send interactions-text clear-undos)))))
+                  (parameterize ([current-eventspace drracket:init:system-eventspace])
+                    (queue-callback 
+                     (λ ()
+                       (send interactions-text clear-undos))))))))
       
       (inherit revert save)
       (define/private (check-if-save-file-up-to-date)