Index: openacs-4/packages/xowiki/www/view-book.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/view-book.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/xowiki/www/view-book.tcl	3 May 2010 17:44:16 -0000	1.9
+++ openacs-4/packages/xowiki/www/view-book.tcl	17 Jun 2010 10:45:12 -0000	1.10
@@ -10,8 +10,8 @@
 
   if {$count > 0} {
     set book_relpos [format %.2f%% [expr {100.0 * $p / $count}]]
-    if {$p>1}      {set book_prev_link [$package_id pretty_link [$i page_name [expr {$p - 1}]]]}
-    if {$p<$count} {set book_next_link [$package_id pretty_link [$i page_name [expr {$p + 1}]]]}
+    if {$p>1}      {set book_prev_link [$package_id pretty_link -parent_id [$i parent_id] [$i page_name [expr {$p - 1}]]]}
+    if {$p<$count} {set book_next_link [$package_id pretty_link -parent_id [$i parent_id] [$i page_name [expr {$p + 1}]]]}
     set page_title "<h2>[$i current] $title</h2>"
   } else {
     set book_relpos 0.0%