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 -N -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	23 Dec 2008 12:23:00 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	27 Nov 2012 07:24:39 -0000	1.5
@@ -12,7 +12,7 @@
 # on whether clustering is enabled and what command is available for
 # cluster-wide flushing.
 
-if {[llength [info commands ncf.send]] > 0} {
+if {[info command ncf.send] ne ""} {
     set flush_body {
         ncf.send util_memoize $script
     }