Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	1 May 2018 09:06:57 -0000	1.43
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	9 May 2018 15:33:28 -0000	1.44
@@ -188,7 +188,7 @@
         return $out
     }
 
-    array set params {}
+    array set params [list]
 
     if { [info exists doc_elements(param)] } {
         foreach param $doc_elements(param) {
@@ -215,7 +215,7 @@
     #         append out "<dt><b>Query Parameters:</b><dd>\n"
     #         foreach arg_name $doc_elements(as_arg_names) {
     #         append out "<b>$arg_name</b>"
-    #         set notes {}
+    #         set notes [list]
     #         if { [info exists as_default_value($arg_name)] } {
     #             lappend notes "defaults to <code>\"$as_default_value($arg_name)\"</code>"
     #         }
@@ -310,7 +310,7 @@
 <dd>
 "
 
-    array set property_doc {}
+    array set property_doc [list]
     if { [info exists doc_elements(property)] } {
         foreach property $doc_elements(property) {
             if { [regexp {^([^ \t]+)[ \t](.+)$} $property "" name value] } {
@@ -715,7 +715,7 @@
     Returns the functions in the system that contain string in their name
     and have been defined using ad_proc.
 } {
-    set matches {}
+    set matches [list]
     foreach function [nsv_array names api_proc_doc] {
         if {[string match -nocase "*$string*" $function]} {
             array set doc_elements [nsv_get api_proc_doc $function]
@@ -733,7 +733,7 @@
     have been defined using ad_proc.  The description includes the
     documentation string, if any.
 } {
-    set matches {}
+    set matches [list]
     foreach function [nsv_array names api_proc_doc] {
         if {[string match -nocase $proc $function]} {
             array set doc_elements [nsv_get api_proc_doc $function]
@@ -1487,7 +1487,7 @@
 
     } {
 
-        set linkList {}
+        set linkList [list]
         set filename $::acs::rootdir/$path
         set path_dirname [file dirname $path]
         set file_dirname [file dirname $filename]