diff --git a/collects/tests/drracket/syncheck-test.rkt b/collects/tests/drracket/syncheck-test.rkt
index 92cb8eff4b..ff78041194 100644
--- a/collects/tests/drracket/syncheck-test.rkt
+++ b/collects/tests/drracket/syncheck-test.rkt
@@ -248,6 +248,39 @@ trigger runtime errors in check syntax.
                   ("x"                 lexically-bound-variable)
                   (")"                 default-color))
                 (list '((22 23) (25 26))))
+     (build-test "(define-syntax-rule (m x y z) (list (λ x y) (λ x z)))\n(m x x x)"
+                 '(("(" default-color)
+                   ("define-syntax-rule" imported)
+                   (" (" default-color)
+                   ("m" lexically-bound)
+                   (" " default-color)
+                   ("x" lexically-bound)
+                   (" " default-color)
+                   ("y" lexically-bound)
+                   (" " default-color)
+                   ("z" lexically-bound)
+                   (") (list (λ " default-color)
+                   ("x" lexically-bound)
+                   (" " default-color)
+                   ("y" lexically-bound)
+                   (") (λ " default-color)
+                   ("x" lexically-bound)
+                   (" " default-color)
+                   ("z" lexically-bound)
+                   (")))\n(" default-color)
+                   ("m" lexically-bound)
+                   (" " default-color)
+                   ("x" lexically-bound)
+                   (" " default-color)
+                   ("x" lexically-bound)
+                   (" " 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)))))
 
      (build-test "(module m mzscheme)"
                 '(("("        default-color)