Index: openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl,v
diff -u -r1.10.2.8 -r1.10.2.9
--- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	6 Jun 2020 09:24:43 -0000	1.10.2.8
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	22 Jul 2020 12:28:42 -0000	1.10.2.9
@@ -426,6 +426,14 @@
             }
             return [set $cache_key]
         }
+
+        :public method flush {
+           {-pattern *}
+        } {
+            set pattern ${:prefix}${pattern}
+            unset -nocomplain {*}[info vars $pattern]
+        }
+
         #
         # The per-thread cache uses namespaced Tcl variables, identified
         # by the prefix "::acs:cache::"