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.4 -r1.5
--- openacs-4/packages/xotcl-core/www/cache.tcl	1 Jun 2009 07:45:59 -0000	1.4
+++ openacs-4/packages/xotcl-core/www/cache.tcl	21 Jan 2011 08:35:32 -0000	1.5
@@ -78,12 +78,12 @@
   set entries "<ul>"
   set count 0
   foreach name [lsort -dictionary $item_list] {
-    set entry [ns_cache get $cache $name]
+    if {[catch {set entry [ns_cache get $cache $name]}]} continue
     if {$filter ne ""} {if {![regexp $filter $entry]} continue}
     incr count
     set n ""
     regexp -- {-set name ([^\\]+)\\} $entry _ n
-    append entries "<li><a href='?cache=$cache&item=$name'>$name</a> $n (<a href='?cache=$cache&flush=$name'>flush</a>)</li>"
+    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>"
   }
   append entries "</ul>"
   if {$filter ne ""} {