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.3 -r1.4
--- openacs-4/packages/acs-admin/www/cache/flush.tcl	10 Jan 2007 21:22:00 -0000	1.3
+++ openacs-4/packages/acs-admin/www/cache/flush.tcl	7 Aug 2017 23:47:45 -0000	1.4
@@ -5,7 +5,7 @@
     pattern
     raw_date
     key:allhtml
-    {return_url "show-util-memoize?pattern=$pattern"}
+    {return_url:localurl "show-util-memoize?pattern=$pattern"}
 }
 
 if {[catch {set pair [ns_cache get util_memoize $key]} errmsg]} {
@@ -17,7 +17,7 @@
 	    set pair [ns_cache get util_memoize $name]
 	    set raw_time [lindex $pair 0]
 	    if {$raw_time == $raw_date} {
-		set value [ad_quotehtml [lindex $pair 1]]
+		set value [ns_quotehtml [lindex $pair 1]]
 		set time [clock format $raw_time]
 		set key $name
 		break
@@ -34,3 +34,9 @@
 ns_cache flush util_memoize $key
 
 ad_returnredirect $return_url
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: