Index: openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl	25 Apr 2018 19:47:47 -0000	1.11
+++ openacs-4/packages/dynamic-types/tcl/dynamic-type-procs.tcl	9 May 2018 15:33:31 -0000	1.12
@@ -32,7 +32,7 @@
     set attributes_list [dtype::get_attributes_list -name $object_type -start_with acs_object -storage_types type_specific -exclude_static_p $exclude_static_p]
 
     upvar $array local
-    set columns {}
+    set columns [list]
 
     foreach attribute_info $attributes_list {
         foreach {name pretty_name attribute_id datatype table_name column_name default_value min_n_values max_n_values static_p} $attribute_info break