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 -N -r1.61.2.2 -r1.61.2.3
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	16 May 2009 23:54:18 -0000	1.61.2.2
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	8 Jun 2009 12:10:25 -0000	1.61.2.3
@@ -296,7 +296,7 @@
         # discared 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]
         }