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.14 -r1.70.2.15
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	3 Feb 2020 22:18:42 -0000	1.70.2.14
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	6 Feb 2020 05:25:29 -0000	1.70.2.15
@@ -551,7 +551,7 @@
 
   Class create ::xo::Table::BulkAction \
       -superclass ::xo::OrderedComposite::Child \
-      -parameter {name id {html {}} {hide 0}} \
+      -parameter {{CSSclass ""} name id {html {}} {hide 0}} \
       -instproc actions {cmd} {
         #:init
         set grandParent [[:info parent] info parent]
@@ -719,6 +719,11 @@
         #: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 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
Index: openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl,v
diff -u -r1.11.2.13 -r1.11.2.14
--- openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl	3 Feb 2020 22:21:22 -0000	1.11.2.13
+++ openacs-4/packages/xowiki/tcl/bootstrap-procs.tcl	6 Feb 2020 05:25:29 -0000	1.11.2.14
@@ -452,6 +452,11 @@
           foreach field [[self]::__columns children] {
             if {[$field hide]} continue
             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