Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.62 -r1.63
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	15 May 2009 07:37:17 -0000	1.62
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	8 Jun 2009 12:19:49 -0000	1.63
@@ -299,7 +299,7 @@
         # discard forms
         foreach node [$root selectNodes //form] {$node delete}
         # output wellformed html
-        set b [$root selectNodes {//body[1]}]
+        set b [lindex [$root selectNodes {//body}] 0]
         foreach n [$b childNodes] {
           append html [$n asHTML]
         }