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.8.1 -r1.6.8.2
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	5 Oct 2013 12:36:53 -0000	1.6.8.1
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	14 Feb 2014 18:20:45 -0000	1.6.8.2
@@ -113,25 +113,32 @@
   #
   Cluster proc broadcast args {
     foreach server [my info instances] {
-       $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: