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)