Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.70.2.35 -r1.70.2.36
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	18 Apr 2022 17:59:37 -0000	1.70.2.35
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	19 Aug 2022 08:42:35 -0000	1.70.2.36
@@ -17,11 +17,8 @@
   set root [$doc documentElement]
   if {!$page} {
     $root appendFromScript {:render}
-    set n [$root childNode]
-    if {$n eq ""} {
-      return ""
-    }
-    return [$n asHTML]
+    set nodes [$root childNode]
+    return [join [lmap n $nodes {$n asHTML}] \n]
   } else {
     set slave [$master decorate $root]
     $slave appendFromScript {:render}