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.1 -r1.2
--- openacs-4/packages/acs-admin/www/cache/flush-cache.tcl	7 Nov 2002 13:51:54 -0000	1.1
+++ openacs-4/packages/acs-admin/www/cache/flush-cache.tcl	8 Jan 2004 15:45:04 -0000	1.2
@@ -2,6 +2,7 @@
     Flush one or more values from util_memoize's cache
 } {
     suffix
+    {return_url "."}
 }
 
 if [string equal $suffix "util_memoize"] {   
@@ -15,4 +16,4 @@
     } 
 }
 
-ad_returnredirect "index"
\ No newline at end of file
+ad_returnredirect $return_url