diff --git a/collects/scribble/lp-include.ss b/collects/scribble/lp-include.ss
index dfc75496..09a32621 100644
--- a/collects/scribble/lp-include.ss
+++ b/collects/scribble/lp-include.ss
@@ -7,8 +7,8 @@
 (provide lp-include)
 
 (define-syntax (module stx)
-  (syntax-case stx ()
-    [(module name base body ...)
+  (syntax-case stx (#%module-begin)
+    [(module name base (#%module-begin body ...))
      (begin
        #'(begin body ...))]))