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.20 -r1.70.2.21
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	1 Feb 2021 10:41:29 -0000	1.70.2.20
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	3 Feb 2021 14:02:40 -0000	1.70.2.21
@@ -466,8 +466,13 @@
   } {
     set output ""
     set line [list]
-    foreach column [[self]::__columns children] {
+    set displayColumns [lmap column [[self]::__columns children] {
       if {[$column exists no_csv]} continue
+      if {[$column istype ::xo::Table::BulkAction]} continue
+      if {[$column istype ::xo::Table::HiddenField]} continue          
+      set column
+    }]
+    foreach column $displayColumns {
       set label [$column label]
       if {[regexp {^#([a-zA-Z0-9_:-]+\.[a-zA-Z0-9_:-]+)#$} $label _ message_key]} {
         set label [_ $message_key]
@@ -478,14 +483,12 @@
     append output [join $line $delimiter] \n
     foreach row [:children] {
       set line [list]
-      foreach column [[self]::__columns children] {
-        if {[$column exists no_csv]} continue
+      foreach column $displayColumns {
         set value [string map {\" \\\" \n \r} [$row set [$column set name]]]
         lappend line \"$value\"
       }
       append output [join $line $delimiter] \n
     }
-    #ns_return 200 text/plain $output
     if {![info exists :name]} {
       set :name "table"
     }