Index: ns_xmlrpc/ns_xmlrpc.tcl
===================================================================
RCS file: /usr/local/cvsroot/ns_xmlrpc/ns_xmlrpc.tcl,v
diff -u -N -r1.4 -r1.5
--- ns_xmlrpc/ns_xmlrpc.tcl	3 Jul 2002 13:08:57 -0000	1.4
+++ 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] \