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 -N -r1.10.2.3 -r1.10.2.4
--- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	7 Apr 2020 09:43:18 -0000	1.10.2.3
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	13 May 2020 10:25:12 -0000	1.10.2.4
@@ -79,7 +79,6 @@
                 } else {
                     set expires_flag {}
                 }
-
                 try {
                     :uplevel [list ns_cache_eval {*}$expires_flag -- \
                                   [:cache_name $partition_key] $key $command]
@@ -332,9 +331,9 @@
             next
         }
 
-        :public method flush {{-partition_key:integer,required} key} {
-            next
-        }
+        #:public method flush {{-partition_key:integer,required} key} {
+        #    next
+        #}
 
         :public method set {{-partition_key:integer,required} key value} {
             next
@@ -360,11 +359,6 @@
             :flush_pattern_in_all_partitions $pattern
         }
 
-        :public method flush {{-partition_key:required} key} {
-            next [list -partition_key [ns_hash $partition_key] $pattern]
-
-        }
-
         :public method set {{-partition_key:required} key value} {
             next [list -partition_key [ns_hash $partition_key] $pattern]
         }