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.44 -r1.10.2.45
--- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	23 Jul 2024 12:45:39 -0000	1.10.2.44
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	20 Aug 2024 09:30:52 -0000	1.10.2.45
@@ -530,14 +530,14 @@
             #
             if {[info exists ${:prefix}]} {
                 if {$pattern eq "*"} {
-                    ns_log notice "### dict flush ${:prefix} <$pattern>"
+                    #ns_log notice "### dict flush ${:prefix} <$pattern>"
                     unset -nocomplain ${:prefix}
                 } elseif {[string first "*" $pattern] != -1} {
                     #
                     # A real pattern with wild-card was provided.
                     #
                     set keys [dict keys [set ${:prefix}] $pattern]
-                    ns_log notice "### dict flush ${:prefix} <$pattern> -> [llength $keys]"
+                    #ns_log notice "### dict flush ${:prefix} <$pattern> -> [llength $keys]"
                     foreach key $keys {
                         dict unset ${:prefix} $key
                     }