Index: library/xotcl/tests/speedtest.xotcl
===================================================================
diff -u -N -r9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0 -rd679ea5694ec3aad76b06767bb23287965304db9
--- library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision 9a0b8bb0992be0561d8187c275fc1d9b7e0bbcd0)
+++ library/xotcl/tests/speedtest.xotcl	(.../speedtest.xotcl)	(revision d679ea5694ec3aad76b06767bb23287965304db9)
@@ -4,6 +4,23 @@
 package require XOTcl 2.0; namespace import ::xotcl::*
 package require nx::test; namespace import nx::Test
 
+Test new -msg {test multiple dashed args o0} \
+    -cmd {Object create o0 [list -set a -a1] [list -set b "-b 1 -y 2"]} \
+    -expected ::o0 \
+    -post {o0 destroy}
+Test new -msg {test multiple dashed args o1} \
+    -cmd {Object create o1 -proc foo args {return 1} [list -set a -a1] [list -set b "-b 1 -y 2"]} \
+    -expected ::o1 \
+    -post {o1}
+Test new -msg {test multiple dashed args o2} \
+    -cmd {Object create o2 {-proc foo args {return 1}} {-set -a -t1} {-set b "-b 1 -y 2"}} \
+    -expected ::o2 \
+    -post {o2 destroy}
+Test new -msg {test multiple dashed args o3} \
+    -cmd {Object create o3 -proc foo args {return 1} {-set -a -t1} {-set b "-b 1 -y 2"}} \
+    -expected ::o3 \
+    -post {o3 destroy}     
+
 Test parameter count 1000
 
 @ @File {description {
@@ -16,7 +33,7 @@
 #set ocount 1014
 #set ocount [expr {$ccount + 206}]
 #set ocount [expr {$ccount + 15}]
-set ocount [expr {$ccount + 5}]
+set ocount [expr {$ccount + 6}]
 
 Class M1; Class M2
 Class C -parameter {{p 99} {q 98} r}
@@ -543,8 +560,8 @@
     -pre {Class A -instproc br {} {return -code break}; A create a1} \
     -cmd {catch {a1 br}} -expected 3 -count 2 \
     -post {A destroy; a1 destroy}
-     
 
+
 Test run; exit