diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index 27584a68..d6494a63 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -58,6 +58,7 @@
                            ("provide/contract" 0)
                            ("new" 1)
                            ("case" 1)
+                           ("syntax-rules" 1)
                            ("syntax-case" 2)
                            ("syntax-case*" 3))
                          (λ (x) (and (list? x) (andmap (λ (x) (and (pair? x)