From 548c661fae47d4537c95742bfbf8916ff8747904 Mon Sep 17 00:00:00 2001
From: Scott Owens <sowens@cs.utah.edu>
Date: Sun, 4 Jan 2004 00:10:17 +0000
Subject: [PATCH] *** empty log message ***

original commit: 8584e4a842e19e0a2941220fb0775ba82868aeca
---
 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 4e08e660..2b4e58f7 100644
--- a/collects/framework/private/color.ss
+++ b/collects/framework/private/color.ss
@@ -601,7 +601,7 @@
                  (insert c)
                  (let ((m (backward-match (+ l pos) start-pos)))
                    (cond
-                     ((and m (send parens is-open-pos? m))
+                     ((and m (send parens is-open-pos? (- m start-pos)))
                       (delete pos (+ l pos))
                       c)
                      (else