Index: ns_xmlrpc/ns_xmlrpc.tcl
===================================================================
RCS file: /usr/local/cvsroot/ns_xmlrpc/ns_xmlrpc.tcl,v
diff -u -N -r1.3 -r1.4
--- ns_xmlrpc/ns_xmlrpc.tcl	11 Jul 2001 20:53:29 -0000	1.3
+++ ns_xmlrpc/ns_xmlrpc.tcl	3 Jul 2002 13:08:57 -0000	1.4
@@ -519,6 +519,11 @@
 
     set doc_id [ns_xml parse $xml]
     set response [ns_xml doc root $doc_id]
+
+    if {[ns_xml node name $response] != "methodResponse"} {
+	set response [lindex [ns_xml node children $response] 0]
+    }
+    
     set top [ns_xml_firstChild $response]
     switch -- [ns_xml node name $top] {
         params {