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.27 -r1.28
--- openacs-4/packages/simulation/www/citybuild/object-edit.tcl	31 Oct 2006 09:00:05 -0000	1.27
+++ openacs-4/packages/simulation/www/citybuild/object-edit.tcl	25 Apr 2018 19:47:48 -0000	1.28
@@ -196,7 +196,7 @@
 #---------------------------------------------------------------------
 
 # Now munge the above spec into something more efficient to use
-array set content_metadata_struct [list]
+array set content_metadata_struct {}
 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 [list]
+    set result {}
     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 [list]
+    set attributes {}
     foreach attribute_name $attr_names {
         set value [set attr__${content_type}__${attribute_name}]
         lappend attributes [list $attribute_name $value]