Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -N -r1.48 -r1.49
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	25 Jul 2018 21:13:18 -0000	1.48
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	5 Aug 2018 08:44:47 -0000	1.49
@@ -1035,9 +1035,12 @@
 
         get {
             if {[ns_info name] eq "NaviServer"} {
-                if {[ns_cache_keys template_cache $cache_key] ne ""} {
-                    set result [ns_cache_eval template_cache $cache_key {}]
-                }
+                #
+                # Get the cache content into variable "result". In case
+                # there is no such entry in the cache, the variable
+                # "result" is not modified.
+                #
+                ns_cache_get template_cache $cache_key result
             } else {
                 if { [ns_cache names template_cache $cache_key] ne "" } {
                     # get timeout and value
@@ -1091,7 +1094,7 @@
 
         exists  {
             if {[ns_info name] eq "NaviServer"} {
-                set result [expr {[ns_cache_keys template_cache $cache_key] ne ""}]
+                set result [ns_cache_get template_cache $cache_key .]
             } else {
                 if { [ns_cache get template_cache $cache_key cached_value] } {
                     # get timeout and value