Index: openacs-4/packages/xotcl-core/www/cache.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/cache.tcl,v
diff -u -r1.5 -r1.5.6.1
--- openacs-4/packages/xotcl-core/www/cache.tcl	21 Jan 2011 08:35:32 -0000	1.5
+++ openacs-4/packages/xotcl-core/www/cache.tcl	5 Dec 2013 08:11:19 -0000	1.5.6.1
@@ -83,7 +83,9 @@
     incr count
     set n ""
     regexp -- {-set name ([^\\]+)\\} $entry _ n
-    append entries "<li><a href='?cache=$cache&item=$name'>$name</a> $n ([string length $entry] bytes, <a href='?cache=$cache&flush=$name'>flush</a>)</li>"
+    set show_url  [export_vars -base [ns_conn url] [list cache [list item $name]]]
+    set flush_url [export_vars -base [ns_conn url] [list cache [list flush $name]]]
+    append entries "<li><a href=\"$show_url\">$name</a> $n ([string length $entry] bytes, <a href=\"$flush_url\">flush</a>)</li>"
   }
   append entries "</ul>"
   if {$filter ne ""} {