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.4 -r1.5
--- openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	13 Jan 2004 22:30:30 -0000	1.4
+++ openacs-4/packages/xml-rpc/tcl/xml-rpc-procs.tcl	8 Apr 2008 18:05:05 -0000	1.5
@@ -660,10 +660,12 @@
 
         set arguments [list]
         set params [xml_node_get_children_by_name $data params]
-        foreach parameter [xml_node_get_children_by_name $params param] {
+	if {$params ne ""} {
+	  foreach parameter [xml_node_get_children_by_name $params param] {
             lappend arguments \
                 [xmlrpc::decode_value [xml_node_get_first_child $parameter]]
-        }
+	  }
+	}
 
         set errno [catch {xmlrpc::invoke_method $method_name $arguments} result]
         if { $errno } {