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 -N -r1.1 -r1.2
--- openacs-4/packages/acs-admin/www/cache/flush.tcl	7 Nov 2002 13:51:54 -0000	1.1
+++ openacs-4/packages/acs-admin/www/cache/flush.tcl	8 Jan 2004 15:45:04 -0000	1.2
@@ -5,6 +5,7 @@
     pattern
     raw_date
     key:allhtml
+    {return_url "show-util-memoize?pattern=$pattern"}
 }
 
 if {[catch {set pair [ns_cache get util_memoize $key]} errmsg]} {
@@ -32,4 +33,4 @@
 
 ns_cache flush util_memoize $key
 
-ad_returnredirect "show-util-memoize?pattern=$pattern"
\ No newline at end of file
+ad_returnredirect $return_url