Index: openacs-4/packages/edit-this-page/tcl/etp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/tcl/etp-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	8 May 2016 13:04:12 -0000	1.29
+++ openacs-4/packages/edit-this-page/tcl/etp-procs.tcl	25 Apr 2018 19:47:47 -0000	1.30
@@ -78,7 +78,7 @@
 } {
     variable content_types
     if {![info exists content_types]} {
-	array set content_types [list]
+	array set content_types {}
     }
 
     # probably should use content_type functions instead
@@ -90,7 +90,7 @@
 	db_exec_plsql object_type_create ""
     }
 
-    set attribute_metadata_with_ids [list]
+    set attribute_metadata_with_ids {}
 
     # for each attribute, ensure an entry in acs_attributes
     foreach attribute $attribute_metadata {
@@ -123,7 +123,7 @@
 } {
     variable application_params
     if {![info exists application_params]} {
-	array set application_params [list]
+	array set application_params {}
     }
     set application_params($name) $params
     ns_log debug "ETP define_application name $name is $application_params($name)"
@@ -338,7 +338,7 @@
     # add in the context bar
     if { $name eq "index" } {
 	set cb [ad_context_bar]
-        set context [list]
+        set context {}
     } else {
 	set cb [ad_context_bar $pa(title)] 
         set context [list $pa(title)]