Index: ns_xmlrpc/ns_xmlrpc.tcl
===================================================================
RCS file: /usr/local/cvsroot/ns_xmlrpc/ns_xmlrpc.tcl,v
diff -u -r1.3 -r1.5
--- ns_xmlrpc/ns_xmlrpc.tcl	11 Jul 2001 20:53:29 -0000	1.3
+++ ns_xmlrpc/ns_xmlrpc.tcl	4 Jul 2002 02:04:22 -0000	1.5
@@ -254,9 +254,15 @@
 proc xmlrpc_construct { node context arglist } {
     set unused {}
     # consume string arguments until configuration options found 
-
+    set options_list [list "-string" "-text" "-i4" "-int" "-integer" \
+			  "-boolean" "-double" "-date" "-binary" "-base64" \
+			  "-variable" "-structvariable" "-struct" \
+			  "-array" "-keyvalue"]
+    # we set the list of valid options, some tcl users
+    # choose to pass strings containing a leading -
+    
     while {[llength $arglist] && \
-            ![string match -* [lindex $arglist 0]]} {
+            [lsearch $options_list [lindex $arglist 0]]!=-1} {
 
         ns_xml node setcontent \
                 [xmlrpc_createContext $node $context] \
@@ -519,6 +525,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 {