diff --git a/collects/mred/private/wx/cocoa/window.rkt b/collects/mred/private/wx/cocoa/window.rkt
index 906c034978..904dbc3398 100644
--- a/collects/mred/private/wx/cocoa/window.rkt
+++ b/collects/mred/private/wx/cocoa/window.rkt
@@ -878,8 +878,9 @@
       (tellv compose-cocoa orderFront: #f))))
 
 (define (reset-input-method-window-size)
-  (tell compose-text setFrame: #:type _NSRect
-        (tell #:type _NSRect (tell compose-cocoa contentView) frame)))
+  (when compose-text
+    (tell compose-text setFrame: #:type _NSRect
+          (tell #:type _NSRect (tell compose-cocoa contentView) frame))))
 
 (define compose-cocoa #f)
 (define compose-text #f)