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 -r1.8.8.1 -r1.8.8.2
--- openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl	2 Oct 2013 22:55:56 -0000	1.8.8.1
+++ openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl	3 Aug 2014 19:50:10 -0000	1.8.8.2
@@ -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"
     }
 }