Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	8 May 2018 22:37:18 -0000	1.54
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	9 May 2018 15:33:28 -0000	1.55
@@ -1,10 +1,10 @@
 # For documentation, see the ad_library call at the bottom of this script.
 
-nsv_array set api_proc_doc {}
-nsv_array set api_proc_doc_scripts {}
-nsv_array set api_library_doc {}
-nsv_array set proc_doc {}
-nsv_array set proc_source_file {}
+nsv_array set api_proc_doc [list]
+nsv_array set api_proc_doc_scripts [list]
+nsv_array set api_library_doc [list]
+nsv_array set proc_doc [list]
+nsv_array set proc_source_file [list]
 
 
 #
@@ -95,7 +95,7 @@
 
     set lines [split $doc_string "\n\r"]
 
-    array set elements {}
+    array set elements [list]
     set current_element main
     set buffer ""
 
@@ -304,7 +304,7 @@
     if { $n_args_remaining == 3 } {
         # No doc string provided.
         #ns_log notice "missing doc string for ad_proc $proc_name ([info script])"
-        array set doc_elements {}
+        array set doc_elements [list]
 	set doc_elements(main) ""
     } else {
         # Doc string was provided.
@@ -326,12 +326,12 @@
     #
     #####
 
-    set switches {}
-    set positionals {}
+    set switches [list]
+    set positionals [list]
     set seen_positional_with_default_p 0
     set n_positionals_with_defaults 0
-    array set default_values {}
-    array set flags {}
+    array set default_values [list]
+    array set flags [list]
     set varargs_p 0
     set switch_code ""
 
@@ -341,7 +341,7 @@
         set first_arg [lindex $arg_list 0]
         if { [llength $first_arg] == 0 || [llength $first_arg] > 2 } {
 	    ns_log Warning "Convert old (deprecated) style proc: $proc_name"
-            set new_arg_list {}
+            set new_arg_list [list]
             foreach { switch default_value } $first_arg {
                 lappend new_arg_list [list $switch $default_value]
             }
@@ -369,7 +369,7 @@
             set default_p 0
         }
 
-        set arg_flags {}
+        set arg_flags [list]
         set arg_split [split $arg ":"]
         if { [llength $arg_split] == 2 } {
             set arg [lindex $arg_split 0]
@@ -781,7 +781,7 @@
 
     if { $varargs_p } {
 	upvar args args
-	set args {}
+	set args [list]
     }
 
     set counter 0