Index: openacs-4/packages/acs-admin/www/cache/flush.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/flush.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/cache/flush.tcl	8 Jan 2004 15:45:04 -0000	1.2
+++ openacs-4/packages/acs-admin/www/cache/flush.tcl	10 Jan 2007 21:22:00 -0000	1.3
@@ -25,7 +25,7 @@
 	}
     }
 
-    if {![info exists value] || [string equal "" $value]} {
+    if {![info exists value] || "" eq $value} {
 	ad_return_complaint 1 "Could not retrieve"
     }
 }