diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss
index c9ce4815e6..f1daaa4eb0 100644
--- a/collects/mred/private/wxme/text.ss
+++ b/collects/mred/private/wxme/text.ss
@@ -1790,8 +1790,10 @@
                                         (values deleted-line? update-cursor?)
                                         (let ([update-cursor?
                                                (or (and (eq? snip s-caret-snip)
-                                                        (begin
+                                                        (let ([rl? read-locked?])
+                                                          (set! read-locked? #t)
                                                           (send s-caret-snip own-caret #f)
+                                                          (set! read-locked? rl?)
                                                           (set! s-caret-snip #f)
                                                           #t))
                                                    update-cursor?)])