diff --git a/collects/drracket/private/syncheck/traversals.rkt b/collects/drracket/private/syncheck/traversals.rkt
index 0b023515b1..6a4c1695d2 100644
--- a/collects/drracket/private/syncheck/traversals.rkt
+++ b/collects/drracket/private/syncheck/traversals.rkt
@@ -192,7 +192,8 @@
             (syntax-case* stx-obj (#%plain-lambda case-lambda if begin begin0 let-values letrec-values set!
                                                   quote quote-syntax with-continuation-mark 
                                                   #%plain-app #%top #%plain-module-begin
-                                                  define-values define-syntaxes begin-for-syntax module
+                                                  define-values define-syntaxes begin-for-syntax 
+                                                  module module*
                                                   #%require #%provide #%expression)
               (λ (x y) (free-identifier=? x y level 0))
               [(#%plain-lambda args bodies ...)
@@ -312,6 +313,7 @@
                (begin
                  (annotate-raw-keyword stx-obj varrefs)
                  (for-each (lambda (e) (level-loop e (+ level 1))) (syntax->list (syntax (exp ...)))))]
+              
               [(module m-name lang (#%plain-module-begin bodies ...))
                (begin
                  (annotate-raw-keyword stx-obj varrefs)
@@ -320,6 +322,17 @@
                  
                  (hash-cons! requires (syntax->datum (syntax lang)) (syntax lang))
                  (for-each loop (syntax->list (syntax (bodies ...)))))]
+              [(module* m-name lang (#%plain-module-begin bodies ...))
+               (begin
+                 (annotate-raw-keyword stx-obj varrefs)
+                 
+                 (when (syntax-e #'lang)
+                   (hash-set! module-lang-requires (syntax lang) #t)
+                   ((annotate-require-open user-namespace user-directory) (syntax lang))
+                   (hash-cons! requires (syntax->datum (syntax lang)) (syntax lang)))
+                 
+                 (for-each loop (syntax->list (syntax (bodies ...)))))]
+              
               
               ; top level or module top level only:
               [(#%require require-specs ...)
diff --git a/collects/tests/drracket/syncheck-test.rkt b/collects/tests/drracket/syncheck-test.rkt
index 266a495f1e..0629766980 100644
--- a/collects/tests/drracket/syncheck-test.rkt
+++ b/collects/tests/drracket/syncheck-test.rkt
@@ -50,7 +50,7 @@
   
   ;; tests : (listof test)
   (define tests
-    (list 
+    (list
      (build-test "12345"
                 '(("12345" constant)))
      (build-test "'abcdef"
@@ -989,6 +989,17 @@
                        '((61 63) (65 67))
                        '((6 12) (14 21) (40 43) (49 54) (74 80))))
 
+     (build-test "#lang racket/base\n(define red 1)\n(module+ test red)"
+                 '(("#lang racket/base\n(" default-color)
+                   ("define"               imported)
+                   (" "                    default-color)
+                   ("red"                  lexically-bound)
+                   (" 1)\n(module+ test "  default-color)
+                   ("red"                  imported)
+                   (")"                    default-color))
+                 '(((26 29) (47 50))
+                   ((6 17) (19 25))))
+
      (build-rename-test "(lambda (x) x)"
                         9
                         "x"