From 82d2f6b45b6ef7ce8dce6a79f1a45a5c8bb326b3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 8 Mar 2005 17:00:11 +0000
Subject: [PATCH] .

original commit: d35b06befa49a22857b2c2912adab99c0663f8db
---
 collects/framework/private/color.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/framework/private/color.ss b/collects/framework/private/color.ss
index cda4c5c3..cc0df1b9 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -598,7 +598,7 @@
               (else
                (let* ((c (car closers))
                       (l (string-length c)))
-                 (insert c)
+                 (insert c pos)
                  (let ((m (backward-match (+ l pos) start-pos)))
                    (cond
                      ((and m