Index: openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	13 Apr 2013 08:28:19 -0000	1.11
+++ openacs-4/packages/xotcl-core/tcl/40-thread-mod-procs.tcl	12 Aug 2013 20:01:06 -0000	1.12
@@ -287,6 +287,6 @@
  
 Class create ::xotcl::THREAD::Client -parameter {server {serverobj [self]}}
 ::xotcl::THREAD::Client instproc do args {
-  eval [my server] do [my serverobj] $args
+  [my server] do [my serverobj] {*}$args
 }