diff --git a/gui-lib/framework/private/text.rkt b/gui-lib/framework/private/text.rkt
index 1b0c08d8..f9d5ff6c 100644
--- a/gui-lib/framework/private/text.rkt
+++ b/gui-lib/framework/private/text.rkt
@@ -3003,7 +3003,12 @@
           (cond
             [(= start end) (flush-proc)]
             [else
-             (define pair (cons (subbytes to-write start end) style))
+             (define pair (cons (if (and (= start 0)
+                                         (= end (bytes-length to-write))
+                                         (immutable? to-write))
+                                    to-write
+                                    (subbytes to-write start end))
+                                style))
              (cond
                [(eq? (current-thread) (eventspace-handler-thread eventspace))
                 (define return-channel (make-channel))