Index: openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl,v
diff -u -r1.1.2.11 -r1.1.2.12
--- openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	29 Nov 2023 19:44:11 -0000	1.1.2.11
+++ openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	4 Dec 2023 15:32:58 -0000	1.1.2.12
@@ -109,7 +109,12 @@
         # Control verbosity
         #
         :method log {args} {
-            ns_log notice "cluster: [join $args { }]"
+            if {[parameter::get \
+                     -package_id $::acs::kernel_id \
+                     -parameter ClusterEnableLoggingP \
+                     -default t]} {
+                ns_log notice "cluster: [join $args { }]"
+            }
         }
 
         :public method setup {} {
@@ -532,7 +537,7 @@
             #
             set preferred_location_regexp [parameter::get \
                                                -package_id $::acs::kernel_id \
-                                               -parameter PreferredLocationRegexp \
+                                               -parameter ClusterPreferredLocationRegexp \
                                                -default https:// ]
 
             set preferred_location ""
@@ -688,6 +693,7 @@
 
                 lappend peer_nodes $qualified_location
             }
+            #:log "final peer_nodes <$peer_nodes>"
             return $peer_nodes
         }
 
@@ -750,6 +756,7 @@
             #
             set cluster_peer_nodes [:peer_nodes $dynamic_peers]
             nsv_set cluster cluster_peer_nodes $cluster_peer_nodes
+            #:log "cluster_peer_nodes <$cluster_peer_nodes>"
 
             if {![:is_configured_server ${:currentServerLocations}]} {
                 #