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.13 -r1.14
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	24 Apr 2018 16:13:07 -0000	1.13
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	25 Apr 2018 19:47:48 -0000	1.14
@@ -19,7 +19,7 @@
 }
 
 # setup nsv array to hold procs that are registered for xml-rpc access
-nsv_array set xmlrpc_procs [list]
+nsv_array set xmlrpc_procs {}
 
 namespace eval xmlrpc {}
 
@@ -672,7 +672,7 @@
                  [lindex \
                       [xml_node_get_children_by_name $data methodName] 0 ]]
 
-        set arguments [list]
+        set arguments {}
         set params [xml_node_get_children_by_name $data params]
         if {$params ne ""} {
             foreach parameter [xml_node_get_children_by_name $params param] {