Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-database-procs.tcl,v
diff -u -r1.78 -r1.79
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	12 Feb 2009 15:38:41 -0000	1.78
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	23 Jan 2010 18:02:56 -0000	1.79
@@ -3509,10 +3509,8 @@
     @author Don Baccus (dhogasa@pacifier.com)
 
 } {
-    foreach key [ns_cache names $cache_pool] {
-        if { [string match $cache_key_pattern $key] } {
-            ns_cache flush $cache_pool $key
-        }
+    foreach key [ns_cache names $cache_pool $cache_key_pattern] {
+        ns_cache flush $cache_pool $key
     }
 }