Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -r1.50.2.7 -r1.50.2.8
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	27 Nov 2022 17:45:28 -0000	1.50.2.7
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	29 Dec 2022 12:52:06 -0000	1.50.2.8
@@ -411,7 +411,7 @@
                 if { $timeout > [ns_time] } {
                     set success 1
                 } else {
-                    ns_cache flush template_query_cache $cache_key
+                    acs::clusterwide ns_cache flush template_query_cache $cache_key
                 }
             }
         }
@@ -512,9 +512,9 @@
     foreach name $names {
         if { [string match $cache_match $name] } {
             ns_log debug "template::query::flush_cache: FLUSHING QUERY (persistent): $name"
-            ns_cache flush template_query_cache $name
+            acs::clusterwide ns_cache flush template_query_cache $name
             if {[ns_info name] ne "NaviServer"} {
-                ns_cache flush template_timeout_cache $name
+                acs::clusterwide ns_cache flush template_timeout_cache $name
             }
         }
     }
@@ -1032,8 +1032,8 @@
                     # validate timeout
                     if { $timeout > [ns_time] } {
                         set result $value
-                   } else {
-                        ns_cache flush template_cache $cache_key
+                    } else {
+                        acs::clusterwide ns_cache flush template_cache $cache_key
                     }
                 }
             }
@@ -1064,13 +1064,13 @@
         flush {
             # The key is actually a string match pattern
             if {[ns_info name] eq "NaviServer"} {
-                ns_cache_flush -glob template_cache $cache_key
+                acs::clusterwide ns_cache_flush -glob template_cache $cache_key
             } else {
                 set names [ns_cache names template_cache]
                 foreach name $names {
                     if { [string match $cache_key $name] } {
                         ns_log debug "template::cache: FLUSHING CACHE: $name"
-                        ns_cache flush template_cache $name
+                        acs::clusterwide ns_cache flush template_cache $name
                     }
                 }
             }