Index: openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	25 Apr 2018 19:23:26 -0000	1.16
+++ openacs-4/packages/acs-subsite/tcl/attribute-procs.tcl	9 May 2018 15:33:28 -0000	1.17
@@ -117,7 +117,7 @@
     # friendly and is thus used as the column name
     set attribute_name [plsql_utility::generate_oracle_name $pretty_name]
     
-#      set attr_list {}
+#      set attr_list [list]
 #      lappend attr_list [list "object_type" '$object_type']
 #      lappend attr_list [list "attribute_name" '$attribute_name']
 #      lappend attr_list [list "min_n_values" '$min_n_values']
@@ -130,7 +130,7 @@
     # A note (by ben, OpenACS)
     # the queries are empty because they are pulled out later in db_exec_plsql
     
-    set plsql {}
+    set plsql [list]
     lappend plsql_drop [list db_exec_plsql "drop_attribute" "FOO"]
     lappend plsql [list db_exec_plsql "create_attribute" "FOO"]
 
@@ -419,7 +419,7 @@
 } { 
     upvar $array_name attr_props
     upvar $enum_array_name enum_values
-    set attr_list {}
+    set attr_list [list]
 
     set storage_clause ""