diff --git a/collects/framework/private/main.ss b/collects/framework/private/main.ss
index c86effe978..4b894ba49a 100644
--- a/collects/framework/private/main.ss
+++ b/collects/framework/private/main.ss
@@ -182,7 +182,7 @@
                      let-syntax letrec-syntax fluid-let-syntax letrec-syntaxes+values
                      
                      kernel-syntax-case
-                     syntax-case syntax-case* syntax-rules
+                     syntax-case syntax-case* syntax-rules syntax-id-rules
                      let-signature fluid-let
                      let-struct let-macro let-values let*-values
                      case when unless