Index: openacs-4/packages/acs-templating/tcl/paginator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/paginator-procs.tcl,v
diff -u -r1.19.2.2 -r1.19.2.3
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	28 Sep 2013 19:14:24 -0000	1.19.2.2
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	29 Sep 2013 18:49:59 -0000	1.19.2.3
@@ -513,7 +513,7 @@
 
     set row(rownum) $rowcount
     set row(page) $page
-    set row(context) [lindex $context_ids [expr {$page - 1}]]
+    set row(context) [lindex $context_ids $page-1]
   }
 }
 
@@ -668,7 +668,7 @@
   if { [info exists properties(context_ids)] } {
     foreach elm { next_page previous_page next_group previous_group } {
       if { [exists_and_not_null info($elm)] } {
-        set info(${elm}_context) [lindex $properties(context_ids) [expr {$info($elm) -1}]]
+        set info(${elm}_context) [lindex $properties(context_ids) $info($elm)-1]
       }
     }
   }