Index: openacs-4/packages/acs-admin/www/test/signed-cookies-test-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/test/signed-cookies-test-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/test/signed-cookies-test-2.tcl	10 Jan 2007 21:22:00 -0000	1.2
+++ openacs-4/packages/acs-admin/www/test/signed-cookies-test-2.tcl	27 Jun 2015 16:41:08 -0000	1.3
@@ -15,16 +15,16 @@
 set cookie_data [split $cookie_value {,}]
 set cookie_data_length [llength $cookie_data]
 
-set hash [lindex $cookie_data [expr {$cookie_data_length - 1}]]
-set max_age [lindex $cookie_data [expr {$cookie_data_length - 2}]]
-set token_id [lindex $cookie_data [expr {$cookie_data_length - 3}]]
+set hash [lindex $cookie_data $cookie_data_length-1]
+set max_age [lindex $cookie_data $cookie_data_length-2]
+set token_id [lindex $cookie_data $cookie_data_length-3]
 
 if { $cookie_data_length == 4 } {
     # no commas in data
     set data [lindex $cookie_data 0]
 } else {
     # join the data using commas
-    set data [join [lrange $cookie_data 0 [expr {$cookie_data_length - 4}]] {,}]
+    set data [join [lrange $cookie_data 0 $cookie_data_length-4] {,}]
 }
 
 set secret_token hello