diff --git a/collects/framework/private/color.rkt b/collects/framework/private/color.rkt
index 2164b0c3ea..bf48797cf7 100644
--- a/collects/framework/private/color.rkt
+++ b/collects/framework/private/color.rkt
@@ -1024,6 +1024,7 @@ added get-regions
     ;; See docs
     ;; smart-skip : (or/c #f 'adjacent 'forward)
     (define/public (insert-close-paren pos char flash? fixup? [smart-skip #f])
+      (begin-edit-sequence)
       (define closers (map symbol->string (map cadr pairs)))
       (define closer (get-close-paren pos
                                       (if fixup? ;; Ensure preference for given character:
@@ -1066,7 +1067,7 @@ added get-regions
                      (format "invalid smart-skip option: ~a" smart-skip))])]
           [else
            (insert)]))
-      
+      (end-edit-sequence)
       (when (and flash? (not stopped?)) (flash-from end-pos)))
     
     ;; find-closer : exact-nonnegative-integer? -> (or/c #f string?)