Index: openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl	26 Feb 2018 18:46:41 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl	27 Feb 2018 11:00:56 -0000	1.2
@@ -107,6 +107,15 @@
 
     Loop through all cached scripts, flushing all that match the
     pattern that was passed in.
+
+    @param pattern Match pattern (glob pattern like in 'string match $pattern ...').
+    @param log Whether to log keys checked and flushed (useful for debugging).
+
+} {
+    set nr_flushed [ns_cache_flush -glob util_memoize $pattern]
+    if {$log_p} {
+        ns_log Debug "util_memoize_flush_pattern: flushed $nr_flushed entries using the pattern: $pattern"
+    }
 }