Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/01-database-procs.tcl,v
diff -u -r1.1.2.44 -r1.1.2.45
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	28 Nov 2022 17:49:22 -0000	1.1.2.44
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	29 Dec 2022 12:52:06 -0000	1.1.2.45
@@ -3827,11 +3827,21 @@
     # from the cache, which can cause large mutex lock times.
     #
     if {[regexp {[*\]\[]} $cache_key_pattern]} {
-        foreach key [ns_cache names $cache_pool $cache_key_pattern] {
-            ns_cache flush $cache_pool $key
+        if {[namespace which ns_cache_eval] ne ""} {
+            #
+            # NaviServer variant
+            #
+            ::acs::clusterwide ns_cache_flush -glob $cache_pool $key
+        } else {
+            #
+            # AOLserver variant
+            #
+            foreach key [ns_cache names $cache_pool $cache_key_pattern] {
+                ns_cache flush $cache_pool $key
+            }
         }
     } else {
-        ns_cache flush $cache_pool $cache_key_pattern
+        acs::clusterwide ns_cache flush $cache_pool $cache_key_pattern
     }
 }