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 -N -r1.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	10 Apr 2008 07:44:56 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/cluster-procs.tcl	29 Aug 2008 22:42:53 -0000	1.4
@@ -23,6 +23,7 @@
 
   Class Cluster -parameter {host {port 80}}
   Cluster set allowed_host_patterns [list]
+  Cluster set url /xotcl-cluster-do 
   Cluster array set allowed_host {
     "127.0.0.1" 1
   }
@@ -119,7 +120,7 @@
     my log "--cluster outgoing request to [my host]:[my port] // $args" 
     set r [::xo::HttpRequest new -volatile \
                -host [my host] -port [my port] \
-               -path /xotcl/do?cmd=[ns_urlencode $args]]
+               -path [Cluster set url]?cmd=[ns_urlencode $args]]
     return [$r set data]
   }