diff --git a/collects/framework/private/scheme.ss b/collects/framework/private/scheme.ss
index 4625e8c7..6ce387d2 100644
--- a/collects/framework/private/scheme.ss
+++ b/collects/framework/private/scheme.ss
@@ -1154,7 +1154,9 @@
     (define/override (on-enable-surrogate text)
       (send text begin-edit-sequence)
       (super on-enable-surrogate text)
-      (send (send text get-keymap) chain-to-keymap keymap #f)
+      (let ([km (send text get-keymap)])
+        (when km
+          (send km chain-to-keymap keymap #f)))
       
       ;; I don't know about these editor flag settings.
       ;; maybe they belong in drscheme?