Index: openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl,v
diff -u -r1.6 -r1.6.8.1
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	26 Nov 2008 09:30:07 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	5 Oct 2013 12:36:53 -0000	1.6.8.1
@@ -12,7 +12,7 @@
     # first, excute the command on the local server
     eval $args
     # then, distribute the command in the cluster
-    eval ::xo::Cluster broadcast $args
+    ::xo::Cluster broadcast {*}$args
   }
 
   proc cache_flush_all {cache pattern} {
@@ -113,7 +113,7 @@
   #
   Cluster proc broadcast args {
     foreach server [my info instances] {
-      eval $server message $args
+       $server message {*}$args
     }
   }
   Cluster instproc message args {