diff --git a/collects/scribblings/htdp-langs/advanced.scrbl b/collects/scribblings/htdp-langs/advanced.scrbl
index e5da9b3675..7fb7a66455 100644
--- a/collects/scribblings/htdp-langs/advanced.scrbl
+++ b/collects/scribblings/htdp-langs/advanced.scrbl
@@ -37,7 +37,7 @@
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet
             local let let* letrec time begin begin0 set! delay shared recur when case unless)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]
diff --git a/collects/scribblings/htdp-langs/beginner-abbr.scrbl b/collects/scribblings/htdp-langs/beginner-abbr.scrbl
index b6ab04abd8..5312a23189 100644
--- a/collects/scribblings/htdp-langs/beginner-abbr.scrbl
+++ b/collects/scribblings/htdp-langs/beginner-abbr.scrbl
@@ -23,7 +23,7 @@
 
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]
diff --git a/collects/scribblings/htdp-langs/beginner.scrbl b/collects/scribblings/htdp-langs/beginner.scrbl
index e1cd51717f..b535f834a6 100644
--- a/collects/scribblings/htdp-langs/beginner.scrbl
+++ b/collects/scribblings/htdp-langs/beginner.scrbl
@@ -11,7 +11,7 @@
 
 @schemegrammar*+library[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]
diff --git a/collects/scribblings/htdp-langs/intermediate-lambda.scrbl b/collects/scribblings/htdp-langs/intermediate-lambda.scrbl
index 5bf65b3068..2a080f4773 100644
--- a/collects/scribblings/htdp-langs/intermediate-lambda.scrbl
+++ b/collects/scribblings/htdp-langs/intermediate-lambda.scrbl
@@ -36,7 +36,7 @@
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet
             local let let* letrec time)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]
diff --git a/collects/scribblings/htdp-langs/intermediate.scrbl b/collects/scribblings/htdp-langs/intermediate.scrbl
index 053d5b96fe..500f270877 100644
--- a/collects/scribblings/htdp-langs/intermediate.scrbl
+++ b/collects/scribblings/htdp-langs/intermediate.scrbl
@@ -23,7 +23,7 @@
 @schemegrammar*+qq[
 #:literals (define define-struct lambda cond else if and or empty true false require lib planet
             local let let* letrec time)
-[program def-or-expr]
+[program (code:line def-or-expr ...)]
 [def-or-expr definition
              expr
              library-require]