Index: openacs-4/packages/simulation/www/citybuild/object-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/object-edit.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/simulation/www/citybuild/object-edit.tcl	25 Apr 2018 19:47:48 -0000	1.28
+++ openacs-4/packages/simulation/www/citybuild/object-edit.tcl	9 May 2018 15:33:33 -0000	1.29
@@ -196,7 +196,7 @@
 #---------------------------------------------------------------------
 
 # Now munge the above spec into something more efficient to use
-array set content_metadata_struct {}
+array set content_metadata_struct [list]
 foreach { ct ct_spec } $content_metadata {
     foreach { prop prop_spec } $ct_spec {
         switch $prop {
@@ -255,7 +255,7 @@
 } {
     set key $content_type,$entry_type
 
-    set result {}
+    set result [list]
     set skip_len [expr [string length $key]+1]
     foreach name [nsv_array names content_metadata_struct $key,*] {
         # The part of name after the key
@@ -550,7 +550,7 @@
         }
     }
 
-    set attributes {}
+    set attributes [list]
     foreach attribute_name $attr_names {
         set value [set attr__${content_type}__${attribute_name}]
         lappend attributes [list $attribute_name $value]