Index: openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl	13 Feb 2009 20:28:08 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl	27 Oct 2014 16:40:08 -0000	1.9
@@ -54,12 +54,13 @@
 
 proc server_cluster_do_httpget { url timeout } {
     if { [catch {
-	set page [ns_httpget $url $timeout 0]
+	set result [util::http::get -url $url -timeout $timeout -max_depth 0]
+	set page [dict get $result page]
 	if { ![regexp -nocase successful $page] } {
-	    ns_log "Error" "Clustering: ns_httpget $url returned unexpected value. Is /SYSTEM/flush-memoized-statement.tcl set up on this host?"
+	    ns_log "Error" "Clustering: util::http::get $url returned unexpected value. Is /SYSTEM/flush-memoized-statement.tcl set up on this host?"
 	}
     } error] } {
-	ns_log "Error" "Clustering: Unable to ns_httpget $url (with timeout $timeout): $error"
+	ns_log "Error" "Clustering: Unable to get $url (with timeout $timeout): $error"
     }
 }
 
@@ -100,9 +101,11 @@
 	set canonical_port 80
 	set canonical_ip $canonical_server
     }
-   
-    if { [ns_config ns/server/[ns_info server]/module/nssock Address] == $canonical_ip && \
-	    [ns_config ns/server/[ns_info server]/module/nssock Port 80] == $canonical_port } {
+
+    set driver_section [ns_driversection -driver nssock]
+    if { [ns_config $driver_section Address] == $canonical_ip 
+	 && [ns_config $driver_section Port 80] == $canonical_port 
+     } {
 	return 1
     }