From c88dd6134801e2fa576d752553e5d495cd4cec9c Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 27 Jan 2007 14:08:39 +0000
Subject: [PATCH] another fix for PR 8502

svn: r5476
---
 collects/drscheme/syncheck.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/drscheme/syncheck.ss b/collects/drscheme/syncheck.ss
index abbef76204..0a02c9c4c6 100644
--- a/collects/drscheme/syncheck.ss
+++ b/collects/drscheme/syncheck.ss
@@ -1753,7 +1753,7 @@ If the namespace does not, they are colored the unbound color.
                   (let-values ([(base offset) (module-path-index-split mod-path)])
                     (cons base (list-ref binding 3)))]
                  [(symbol? mod-path)
-                  (cons mod-path #f)]))))
+                  (cons mod-path (list-ref binding 3))]))))
       
       ;; color/connect-top : namespace directory id-set syntax -> void
       (define (color/connect-top rename-ht user-namespace user-directory binders var)