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.61 -r1.62
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	24 Dec 2017 12:28:07 -0000	1.61
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	5 Feb 2018 16:34:33 -0000	1.62
@@ -442,7 +442,9 @@
     :init_renderer
   }
 
-  Table instproc write_csv {} {
+  Table instproc write_csv {
+    {-delimiter ","}
+  } {
     set output ""
     set line [list]
     foreach column [[self]::__columns children] {
@@ -454,15 +456,15 @@
       set value [string map {\" \\\" \n \r)} $label]
     lappend line \"$value\"
   }
-  append output [join $line ,] \n
+  append output [join $line $delimiter] \n
   foreach row [:children] {
     set line [list]
     foreach column [[self]::__columns children] {
       if {[$column exists no_csv]} continue
       set value [string map {\" \\\" \n \r} [$row set [$column set name]]]
       lappend line \"$value\"
     }
-    append output [join $line ,] \n
+    append output [join $line $delimiter] \n
   }
   #ns_return 200 text/plain $output
   if {![info exists :name]} {set :name "table"}