diff --git a/collects/drracket/private/syncheck/gui.rkt b/collects/drracket/private/syncheck/gui.rkt
index 97e9034407..2e4a746a4b 100644
--- a/collects/drracket/private/syncheck/gui.rkt
+++ b/collects/drracket/private/syncheck/gui.rkt
@@ -1322,12 +1322,13 @@ If the namespace does not, they are colored the unbound color.
                           (send the-tab clear-annotations)
                           (send the-tab reset-offer-kill)
                           (send (send the-tab get-defs) syncheck:init-arrows)
-                          
+                          (define settings (send definitions-text get-next-settings))
                           (drracket:eval:expand-program
                            #:gui-modules? #f
                            (drracket:language:make-text/pos definitions-text 0 (send definitions-text last-position))
-                           (send definitions-text get-next-settings)
-                           #t
+                           settings
+                           (not (is-a? (drracket:language-configuration:language-settings-language settings)
+                                       drracket:module-language:module-language<%>))
                            init-proc
                            kill-termination
                            (λ (sexp loop) ; =user=
diff --git a/collects/tests/drracket/syncheck-test.rkt b/collects/tests/drracket/syncheck-test.rkt
index ff78041194..374ff7fdbf 100644
--- a/collects/tests/drracket/syncheck-test.rkt
+++ b/collects/tests/drracket/syncheck-test.rkt
@@ -276,11 +276,11 @@ trigger runtime errors in check syntax.
                    (" " default-color)
                    ("x" lexically-bound) 
                    (")" default-color))
-                 (list '(((21 22) (55 56)) 
-                         ((23 24) (39 40) (47 48))
-                         ((25 26) (41 42))
-                         ((27 28) (49 50))
-                         ((57 58) (59 60) (61 62)))))
+                 (list '((21 22) (55 56)) 
+                       '((23 24) (39 40) (47 48))
+                       '((25 26) (41 42))
+                       '((27 28) (49 50))
+                       '((57 58) (59 60) (61 62))))
 
      (build-test "(module m mzscheme)"
                 '(("("        default-color)