Index: openacs-4/packages/acs-admin/www/cache/flush-cache.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/flush-cache.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/cache/flush-cache.tcl	8 Jan 2004 15:45:04 -0000	1.2
+++ openacs-4/packages/acs-admin/www/cache/flush-cache.tcl	10 Jan 2007 21:22:00 -0000	1.3
@@ -5,13 +5,13 @@
     {return_url "."}
 }
 
-if [string equal $suffix "util_memoize"] {   
+if {$suffix eq "util_memoize"} {   
     foreach name [ns_cache names util_memoize] {
 	ns_cache flush util_memoize $name
     } 
 } else {
     #ns_return 200 text/html $suffix
-    if [catch { util_memoize_flush_cache $suffix } errmsg] {
+    if {[catch { util_memoize_flush_cache $suffix } errmsg]} {
 	ns_return 200 text/html "Cannot flush the cache for $suffix suffix."
     } 
 }