Index: openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	25 Apr 2018 19:47:48 -0000	1.14
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	9 May 2018 15:33:33 -0000	1.15
@@ -19,7 +19,7 @@
 }
 
 # setup nsv array to hold procs that are registered for xml-rpc access
-nsv_array set xmlrpc_procs {}
+nsv_array set xmlrpc_procs [list]
 
 namespace eval xmlrpc {}
 
@@ -672,7 +672,7 @@
                  [lindex \
                       [xml_node_get_children_by_name $data methodName] 0 ]]
 
-        set arguments {}
+        set arguments [list]
         set params [xml_node_get_children_by_name $data params]
         if {$params ne ""} {
             foreach parameter [xml_node_get_children_by_name $params param] {