Index: openacs-4/packages/dynamic-types/tcl/table-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/table-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dynamic-types/tcl/table-procs.tcl	26 May 2005 10:27:58 -0000	1.3
+++ openacs-4/packages/dynamic-types/tcl/table-procs.tcl	25 Apr 2018 19:47:47 -0000	1.4
@@ -45,7 +45,7 @@
     @error 
 } {
     set cols_lists [db_list_of_lists get_cols ""]
-    set cols [list]
+    set cols {}
     foreach l $cols_lists {
         lappend cols [lindex $l 0] [lindex $l 1]
     }