Index: openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl	25 Apr 2018 19:47:46 -0000	1.4
+++ openacs-4/packages/cms/tcl/clipboard-ui-procs.tcl	9 May 2018 15:33:30 -0000	1.5
@@ -24,7 +24,7 @@
     set elements $opts(elements)
     unset opts(elements)
   } else {
-    set elements {}
+    set elements [list]
   }
   set v_args [template::util::list_opts]
 
@@ -72,7 +72,7 @@
   # Set defaults
   set row(html) ""
   set row(hidden) ""
-  set row(elements) {}
+  set row(elements) [list]
 
   # Create the checkbox
   set element_code [list check -datatype text -widget checkbox \
@@ -214,7 +214,7 @@
     return
   }
 
-  set header {}
+  set header [list]
   foreach element_name $row(elements) {
     upvar "${form_name}:${element_name}_${row_index}" element
     if { ![string equal $element(widget) hidden] } {