Index: ns_xmlrpc/ns_xmlrpc.tcl
===================================================================
RCS file: /usr/local/cvsroot/ns_xmlrpc/ns_xmlrpc.tcl,v
diff -u -r1.1 -r1.2
--- ns_xmlrpc/ns_xmlrpc.tcl	11 Jul 2001 15:44:34 -0000	1.1
+++ ns_xmlrpc/ns_xmlrpc.tcl	11 Jul 2001 20:40:38 -0000	1.2
@@ -108,6 +108,9 @@
         ns_log error "xmlrpc_invoke: error parsing request: $doc_id"
     } else {
         set data   [ns_xml doc root $doc_id]
+	if {[ns_xml node name $data] != "methodName"} {
+	    set data [ns_xml node children $data]
+	}
         set methodName \
             [ns_xml node getcontent \
               [lindex \