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 -N -r1.70.2.12 -r1.70.2.13
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	2 Feb 2020 15:19:38 -0000	1.70.2.12
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	3 Feb 2020 11:33:53 -0000	1.70.2.13
@@ -528,7 +528,16 @@
 
   Class create ::xo::Table::Field \
       -superclass ::xo::OrderedComposite::Child \
-      -parameter {label {html {}} {orderby ""} name {richtext false} no_csv {CSSclass ""} {hide 0}} \
+      -parameter {
+        label
+        {html {}}
+        {orderby ""}
+        name
+        {richtext false}
+        no_csv
+        {CSSclass ""}
+        {hide 0}
+      } \
       -instproc init {} {
         set :name [namespace tail [self]]
       } \
@@ -579,8 +588,8 @@
       -superclass ::xo::Table::Field \
       -instproc get-slots {} {
         set slots [list -${:name}]
-        lappend slots [list -${:name}.src [:src]]
-        lappend slots [list -${:name}.CSSclass [:CSSclass]]
+        lappend slots [list -${:name}.src ${:src}]
+        lappend slots [list -${:name}.CSSclass ${:CSSclass}]
         foreach att {width height border title alt} {
           if {[info exists :$att]} {
             lappend slots [list -${:name}.$att [:$att]]
@@ -710,7 +719,8 @@
         #: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] {
-            html::td  [concat [list class list] [$field html]] {
+            set CSSclass [list "list" {*}[$field CSSclass]]
+            html::td  [concat [list class $CSSclass] [$field html]] {
               $field render-data $line
             }
           }