From ff9938a87f339a6ed195f63799397fc0ad706e4b Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 13 Feb 2008 17:34:40 +0000
Subject: [PATCH] added check ala PR 9185

svn: r8647
---
 collects/drscheme/syncheck.ss | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.ss
index 9c938da50e..373fb4e582 100644
--- a/collects/drscheme/syncheck.ss
+++ b/collects/drscheme/syncheck.ss
@@ -447,7 +447,11 @@ If the namespace does not, they are colored the unbound color.
                                         new-vec)
                                        new-vec)))])
                 (let loop ([p start])
-                  (when (<= p end)
+                  (when (and (<= p end)
+                             (< p (vector-length arrow-vector))) 
+                    ;; the last test in the above and is because some syntax objects
+                    ;; appear to be from the original source, but can have bogus information.
+                    
                     (let ([r (vector-ref arrow-vector p)])
                       (cond
                         [use-key?