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.4 -r1.5
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	29 Aug 2008 22:42:53 -0000	1.4
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	1 Oct 2008 19:21:50 -0000	1.5
@@ -118,10 +118,13 @@
   }
   Cluster instproc message args {
     my log "--cluster outgoing request to [my host]:[my port] // $args" 
-    set r [::xo::HttpRequest new -volatile \
+#     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]]
-    return [$r set data]
   }