Index: openacs-4/packages/xotcl-core/tcl/cluster-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/cluster-init.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/xotcl-core/tcl/cluster-init.tcl	20 Sep 2007 11:57:04 -0000	1.1
+++ openacs-4/packages/xotcl-core/tcl/cluster-init.tcl	29 Aug 2008 22:42:53 -0000	1.2
@@ -17,6 +17,21 @@
     }
   }
   
-  ns_register_filter trace GET /xotcl/do ::xo::Cluster
-  ad_register_filter -priority 900 preauth GET /xotcl/do ::xo::Cluster
+  set url [::xo::Cluster set url]
+
+  # Check, if the filter url mirrors a site node. If so,
+  # the cluster mechanism will not work, if the site node
+  # requires a login. Clustering will only work if the
+  # root node is freely accessible.
+
+  array set node [site_node::get -url $url] 
+  if {$node(url) ne "/"} {
+    ns_log notice "***\n*** WARNING: there appears a package mounted on\
+	$url\n***Cluster configuration will not work\
+	since there is a conflict with the aolserver filter with the same name!\n"
+  }
+  
+  #ns_register_filter trace GET $url ::xo::Cluster
+  ns_register_filter preauth GET $url ::xo::Cluster 
+  #ad_register_filter -priority 900 preauth GET $url ::xo::Cluster
 }
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.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]
   }