Index: openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl	23 Jun 2018 16:30:58 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/memoize-procs-naviserver.tcl	5 Aug 2018 21:08:42 -0000	1.8
@@ -95,9 +95,9 @@
     @return Boolean value.
 } {
     if {$max_age ne ""} {
-        ns_log Warning "util_memoize_cached_p: ignore max_age $max_age for $script"
+        ns_log warning "util_memoize_cached_p: ignore max_age $max_age for $script"
     }
-    return [expr {[ns_cache_keys util_memoize $script] ne ""}]
+    return [ns_cache_get util_memoize $script .]
 }
 
 ad_proc -public util_memoize_flush_pattern {