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.9 -r1.9.2.1
--- openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	24 Sep 2002 09:06:04 -0000	1.9
+++ openacs-4/packages/acs-templating/tcl/paginator-procs.tcl	1 Nov 2002 15:56:17 -0000	1.9.2.1
@@ -235,7 +235,7 @@
   set start [expr ($group - 1) * $group_size + 1]
   set end [expr $start + $group_size]
 
-  if { $end > $page_count } { set end $page_count) }
+  if { $end > $page_count } { set end $page_count }
 
   set pages [list]
 
@@ -444,7 +444,7 @@
   set query [uplevel 2 "db_map ${statement_name}_partial"]
   set in_list [join $ids ","]
   if { ! [regsub CURRENT_PAGE_SET $query $in_list query] } {
-    error "Token CURRENT_PAGE_SET not found in page data query: $query"
+    error "Token CURRENT_PAGE_SET not found in page data query  ${statement_name}_partial: $query"
   }
 
   if { [llength $in_list] == 0 } {