Index: openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	7 Aug 2017 23:47:45 -0000	1.6
+++ openacs-4/packages/acs-admin/www/auth/authority-parameters.tcl	25 Apr 2018 19:23:25 -0000	1.7
@@ -15,11 +15,11 @@
 
 
 # Get the implementation id and implementation pretty name
-array set parameters [list]
-array set parameter_values [list]
+array set parameters {}
+array set parameter_values {}
 
 # Each element is a list of impl_ids which have this parameter
-array set param_impls [list]
+array set param_impls {}
 
 foreach element_name [auth::authority::get_sc_impl_columns] {
     set name_column $element_name
@@ -47,7 +47,7 @@
     # Set focus on first param name
     set first_param_name [lindex [array names parameters] 0]
 
-    set form_widgets [list]
+    set form_widgets {}
     foreach parameter_name [array names parameters] {
         lappend form_widgets [list ${parameter_name}:text,optional [list label $parameter_name] [list help_text $parameters($parameter_name)] {html {size 80}}]
     }