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.36 -r1.70.2.37
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	19 Aug 2022 08:42:35 -0000	1.70.2.36
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	20 Aug 2022 09:36:09 -0000	1.70.2.37
@@ -713,29 +713,33 @@
   }
 
   TABLE instproc render-body {} {
-    html::tr -class list-header {
-      foreach o [[self]::__columns children] {
-        $o render
+    html::thead {
+      html::tr -class list-header {
+        foreach o [[self]::__columns children] {
+          $o render
+        }
       }
     }
     set children [:children]
     if {[llength $children] == 0} {
       html::tr {html::td { html::t ${:no_data}}}
     } else {
-      foreach line [:children] {
-        #:log "--LINE vars=[:info vars] cL: [[self class] info vars] r=[:renderer]"
-        html::tr -class [expr {[incr :__rowcount]%2 ? ${:css.tr.odd-class} : ${:css.tr.even-class}}] {
-          foreach field [[self]::__columns children] {
-            if {[$field istype HiddenField]} continue
-            if {![$field exists CSSclass]} {
-              # TODO: remove me when message does not show up
-              ns_log warning "CSSclass missing $field\n[$field serialize]"
-              $field set CSSclass ""
+      html::tbody {
+        foreach line [:children] {
+          #:log "--LINE vars=[:info vars] cL: [[self class] info vars] r=[:renderer]"
+          html::tr -class [expr {[incr :__rowcount]%2 ? ${:css.tr.odd-class} : ${:css.tr.even-class}}] {
+            foreach field [[self]::__columns children] {
+              if {[$field istype HiddenField]} continue
+              if {![$field exists CSSclass]} {
+                # TODO: remove me when message does not show up
+                ns_log warning "CSSclass missing $field\n[$field serialize]"
+                $field set CSSclass ""
+              }
+              set CSSclass [list "list" {*}[$field CSSclass]]
+              html::td [concat [list class $CSSclass] [$field html]] {
+                $field render-data $line
+              }
             }
-            set CSSclass [list "list" {*}[$field CSSclass]]
-            html::td [concat [list class $CSSclass] [$field html]] {
-              $field render-data $line
-            }
           }
         }
       }