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 }