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.7
--- 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	27 Oct 2014 16:42:01 -0000	1.7
@@ -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,25 +113,32 @@
   #
   Cluster proc broadcast args {
     foreach server [my info instances] {
-      eval $server message $args
+      $server message {*}$args
     }
   }
   Cluster instproc message args {
     my log "--cluster outgoing request to [my host]:[my port] // $args" 
-#     set r [::xo::HttpRequest new -volatile \
-#                -host [my host] -port [my port] \
-#                -path [Cluster set url]?cmd=[ns_urlencode $args]]
-#     return [$r set data]
+    #     set r [::xo::HttpRequest new -volatile \
+    #                -host [my host] -port [my port] \
+    #                -path [Cluster set url]?cmd=[ns_urlencode $args]]
+    #     return [$r set data]
 
     set r [::xo::AsyncHttpRequest new -volatile \
-	       -host [my host] -port [my port] \
-	       -path [Cluster set url]?cmd=[ns_urlencode $args]]
-  
-#     ::bgdelivery do ::xo::AsyncHttpRequest new \
-# 	-host [my host] -port [my port] \
-#         -path [Cluster set url]?cmd=[ns_urlencode $args] \
-# 	-mixin ::xo::AsyncHttpRequest::SimpleListener \
-# 	-proc finalize {obj status value} { my destroy }
+               -host [my host] -port [my port] \
+               -path [Cluster set url]?cmd=[ns_urlencode $args]]
+    
+    #     ::bgdelivery do ::xo::AsyncHttpRequest new \
+    #         -host [my host] -port [my port] \
+    #         -path [Cluster set url]?cmd=[ns_urlencode $args] \
+    #         -mixin ::xo::AsyncHttpRequest::SimpleListener \
+    #         -proc finalize {obj status value} { my destroy }
 
   }
-}
\ No newline at end of file
+}
+
+#
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: