Index: openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/cluster-procs.tcl,v
diff -u -r1.1.2.10 -r1.1.2.11
--- openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	28 Nov 2023 15:55:08 -0000	1.1.2.10
+++ openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	29 Nov 2023 19:44:11 -0000	1.1.2.11
@@ -585,17 +585,18 @@
                                 if {$port == 0} {
                                     continue
                                 }
-                                lappend result [util::join_location \
-                                                    -proto [dict get $protos $module_type] \
-                                                    -hostname $ip \
-                                                    -port $port]
+                                lappend result [:qualified_location \
+                                                    [util::join_location \
+                                                         -proto [dict get $protos $module_type] \
+                                                         -hostname $ip \
+                                                         -port $port]]
                             }
                         }
                     }
                 }
             }
             set result [lsort -unique $result]
-            ns_log notice "current_server_locations returns $result"
+            ns_log notice "[self] current_server_locations returns $result"
             return $result
         }
 
@@ -644,7 +645,7 @@
                 # clusterwide cache-flush for the parameters
                 #
                 parameter::set_value -package_id $::acs::kernel_id -parameter DynamicClusterPeers -value $dynamicClusterNodes
-                ns_log notice "Cluster join_request leads to DynamicClusterPeers $dynamicClusterNodes"
+                ns_log notice "[self] Cluster join_request leads to DynamicClusterPeers $dynamicClusterNodes"
             }
             return $success
         }