Index: openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl,v
diff -u -N -r1.18.2.1 -r1.18.2.2
--- openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	9 Aug 2019 19:51:02 -0000	1.18.2.1
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs.tcl	11 Oct 2021 20:11:37 -0000	1.18.2.2
@@ -61,6 +61,15 @@
     ns_cache flush util_memoize $script
 }
 
+ad_proc -public util_memoize_flush {script} {
+    Forget any cached value for <i>script</i>.  If clustering is
+    enabled, flush the caches on all servers in the cluster.
+
+    @param script The Tcl script whose cached value should be flushed.
+} {
+    ::acs::clusterwide ns_cache flush util_memoize $script
+}
+
 ad_proc -public util_memoize_flush_regexp {
     -log:boolean
     expr