Index: openacs-4/packages/acs-templating/tcl/filter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/filter-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-templating/tcl/filter-procs.tcl	24 Apr 2018 21:19:43 -0000	1.20
+++ openacs-4/packages/acs-templating/tcl/filter-procs.tcl	27 Apr 2018 14:52:54 -0000	1.21
@@ -32,8 +32,7 @@
     set cache_p [lindex $args 0]
 
     if {$cache_p == "t"} {
-        set persistent_p [lindex $args 1]
-        set excluded_vars [lindex $args 2]
+        lassign $args . persistent_p excluded_vars
 
         ad_cache_returnredirect $url $persistent_p $excluded_vars
     } else {
@@ -84,7 +83,7 @@
 
         set output "<pre>[ns_quotehtml [template::adp_compile -file $file_stub.adp]]</pre>"
 
-        set timeElapsed [expr ([clock clicks -milliseconds] - $beginTime)]
+        set timeElapsed [expr {[clock clicks -milliseconds] - $beginTime}]
         ns_log debug "cmp_page_filter: Time elapsed: $timeElapsed"
 
     } on error {errorMsg} {
@@ -110,7 +109,7 @@
 
         set output [template::adp_parse $file_stub [list code_stub $code_stub]]
 
-        set timeElapsed [expr ([clock clicks -milliseconds] - $beginTime)]
+        set timeElapsed [expr {[clock clicks -milliseconds] - $beginTime}]
         ns_log debug " dat_page_filter: Time elapsed: $timeElapsed"
 
     } on error {errorMsg} {
@@ -156,7 +155,7 @@
 
         set output [template::frm_page_handler]
 
-        set timeElapsed [expr ([clock clicks -milliseconds] - $beginTime)]
+        set timeElapsed [expr {[clock clicks -milliseconds] - $beginTime}]
         ns_log debug "frm_page_filter: Time elapsed: $timeElapsed"
 
     } on error {errorMsg} {