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.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	27 Jun 2018 11:31:23 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/acs-cache-procs.tcl	5 Jul 2018 10:18:43 -0000	1.5
@@ -180,13 +180,19 @@
             }
             return [ns_cache get [:cache_name $partition_key] $key]
         }
+
+        :public method show_all {} {
+            ns_log notice "content of ${:name}: [ns_cache_keys ${:name}]"
+        }
         
         :public method flush_cache {{-partition_key ""}} {
             #
             # Flush all entries in a cache. Both, NaviServer and
             # AOLserver support "ns_cache_flush".
             #
             ns_cache_flush [:cache_name $partition_key]
+            #ns_log notice "flush_all -> ns_cache_flush [:cache_name $partition_key]"
+            #ns_log notice "... content of ${:name}: [ns_cache_keys ${:name}]"
         }
         
 	:public method flush_all {} {
@@ -257,8 +263,18 @@
             #
             for {set i 0} {$i < ${:partitions}} {incr i} {
 		ns_cache_flush ${:name}-$i
+                #ns_log notice "flush_all: ns_cache_flush ${:name}-$i"
+                #ns_log notice "... content of ${:name}-$i: [ns_cache_keys ${:name}-$i]"
 	    }
         }
+
+        :public method show_all {} {
+            for {set i 0} {$i < ${:partitions}} {incr i} {
+                ns_log notice "content of ${:name}-$i: [ns_cache_keys ${:name}-$i]"
+	    }
+            
+        }
+
     }
 
     ##########################################################################