Index: openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	4 Jun 2006 00:45:47 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	20 Sep 2007 12:33:33 -0000	1.3
@@ -16,7 +16,7 @@
     set flush_body {
         ncf.send util_memoize $script
     }
-} elseif {[llength [info commands server_cluster_httpget_from_peers]] > 0} {
+} elseif {[server_cluster_enabled_p] && [info commands server_cluster_httpget_from_peers] ne ""} {
     set flush_body {
         server_cluster_httpget_from_peers "/SYSTEM/flush-memoized-statement.tcl?statement=[ns_urlencode $script]"
     }