Index: openacs-4/packages/xotcl-core/tcl/cluster-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cluster-init.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/xotcl-core/tcl/cluster-init.tcl	7 Aug 2017 23:48:30 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/cluster-init.tcl	26 Aug 2020 18:50:43 -0000	1.5.2.1
@@ -1,38 +1,38 @@
 if {[server_cluster_enabled_p]} {
   set my_ip   [ns_config ns/server/[ns_info server]/module/nssock Address]
   set my_port [ns_config ns/server/[ns_info server]/module/nssock port]
-  
+
   foreach host [server_cluster_all_hosts] {
     set port 80
     regexp {^(.*):(.*)} $host _ host port
     if {"$host-$port" eq "$my_ip-$my_port"}  continue
     ::xo::Cluster create CS_${host}_$port -host $host -port $port
   }
-  
+
   foreach ip [parameter::get -package_id [ad_acs_kernel_id] -parameter ClusterAuthorizedIP] {
     if {[string first * $ip] > -1} {
       ::xo::Cluster lappend allowed_host_patterns $ip
     } else {
       ::xo::Cluster set allowed_host($ip) 1
     }
   }
-  
+
   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] 
+  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 
+  ns_register_filter preauth GET $url ::xo::Cluster
   #ad_register_filter -priority 900 preauth GET $url ::xo::Cluster
 }