From 65d3d41096ab5a642a369587a30b60cd15ef4d29 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Fri, 21 Nov 2008 16:15:39 +0000
Subject: [PATCH] Using begin/collect

svn: r12569
---
 collects/web-server/scribblings/templates.scrbl | 2 +-
 collects/web-server/templates.ss                | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/web-server/scribblings/templates.scrbl b/collects/web-server/scribblings/templates.scrbl
index f7f0f701e0..e04d3dbd06 100644
--- a/collects/web-server/scribblings/templates.scrbl
+++ b/collects/web-server/scribblings/templates.scrbl
@@ -268,7 +268,7 @@ the template to be unescaped, then create a @scheme[cdata] structure:
  Expands into
  @schemeblock[
   (for/list ([x xs])
-   (list e ...))
+   (begin/text e ...))
  ]
  
  Template Example:
diff --git a/collects/web-server/templates.ss b/collects/web-server/templates.ss
index 5ee1b8798f..7a7edb0cd9 100644
--- a/collects/web-server/templates.ss
+++ b/collects/web-server/templates.ss
@@ -25,7 +25,7 @@
   (syntax-rules ()
     [(_ x xs e ...)
      (for/list ([x xs])
-       (list e ...))]))
+       (begin/text e ...))]))
 
 (provide include-template
          in)
\ No newline at end of file