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.31 -r1.32
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	27 Nov 2012 12:33:15 -0000	1.31
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	28 Nov 2012 14:52:04 -0000	1.32
@@ -438,7 +438,7 @@
       } else {
 
 	# get the pair of the timeout and value
-	lset [ns_cache get template_query_cache $cache_key] timeout cached_result
+	lassign [ns_cache get template_query_cache $cache_key] timeout cached_result
 
 	# check the timeout
 	if { $timeout > [ns_time] } {
@@ -1087,7 +1087,7 @@
       } else {
 	if { [ns_cache names template_cache $cache_key] ne "" } {
 	  # get timeout and value
-	  lset [ns_cache get template_cache $cache_key] timeout value
+	  lassign [ns_cache get template_cache $cache_key] timeout value
 	  # validate timeout
 	  if { $timeout > [ns_time] } {
 	    set result $value
@@ -1141,7 +1141,7 @@
       } else {
 	if { [ns_cache exists template_cache $cache_key] } {
 	  # get timeout and value
-	  lset [ns_cache get template_cache $cache_key] timeout value
+	  lassign [ns_cache get template_cache $cache_key] timeout value
 	  # validate timeout
 	  if { $timeout > [ns_time] } {
 	    set result 1