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.30 -r1.31
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	1 Mar 2008 18:18:58 -0000	1.30
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Apr 2008 12:07:03 -0000	1.31
@@ -17,7 +17,11 @@
   set root [$doc documentElement]
   if {!$page} {
     $root appendFromScript {my render}
-    return [[$root childNode] asHTML]
+    set n [$root childNode]
+    if {$n eq ""} {
+      return ""
+    }
+    return [$n asHTML]
   } else {
     set slave [$master decorate $root]
     $slave appendFromScript {my render}