Index: openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl,v
diff -u -r1.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl	10 Sep 2015 08:21:07 -0000	1.4.2.1
+++ openacs-4/packages/acs-admin/www/cache/show-util-memoize.tcl	18 Sep 2015 07:39:04 -0000	1.4.2.2
@@ -20,7 +20,7 @@
 
     foreach name $cached_names {size time} $stats {
 	if {[regexp -nocase -- $pattern $name match]} {
-	    set key [ad_quotehtml $name]
+	    set key [ns_quotehtml $name]
 	    set safe_key $key ;# why twice?
 	    set raw_date [ns_time seconds $time]
 	    if {$raw_date eq 0} {
@@ -33,7 +33,7 @@
 		continue
 	    }
 	    set value_size [string length $value]
-	    set value [ad_quotehtml $value]
+	    set value [ns_quotehtml $value]
 	    if {$full} {
 		template::multirow append matches $key $value $value_size \
 		    $safe_key $expires $raw_date
@@ -48,14 +48,14 @@
 
     foreach name $cached_names {
 	if {[regexp -nocase -- $pattern $name match]} {
-	    set key [ad_quotehtml $name]
-	    set safe_key [ad_quotehtml $name]
+	    set key [ns_quotehtml $name]
+	    set safe_key [ns_quotehtml $name]
 	    if {[catch {set pair [ns_cache get util_memoize $name]} errmsg]} {
 		continue
 	    }
 	    set raw_date [lindex $pair 0]
 	    set date [clock format $raw_date -format "%d %b %H:%M:%S"]  
-	    set value [ad_quotehtml [lindex $pair 1]]
+	    set value [ns_quotehtml [lindex $pair 1]]
 	    set value_size [string length $value]
 	    if {$full} {
 		template::multirow append matches $key $value $value_size \