Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.57.8.1 -r1.57.8.2
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	27 Aug 2013 11:33:14 -0000	1.57.8.1
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	1 Oct 2013 08:47:20 -0000	1.57.8.2
@@ -1354,7 +1354,7 @@
         if 0 {
             set num_pages 11
             set pages [list]
-            for { set i [expr {$current_page - $num_pages}] } { $i < [expr {$current_page + $num_pages}] } { incr i } {
+            for { set i [expr {$current_page - $num_pages}] } { $i < $current_page + $num_pages } { incr i } {
                 if { $i > 0 && $i <= $paginator(page_count) } {
                     lappend pages $i
                 }