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 -r1.10 -r1.11
--- openacs-4/packages/xowiki/www/view-book.tcl	17 Jun 2010 10:45:12 -0000	1.10
+++ openacs-4/packages/xowiki/www/view-book.tcl	30 Oct 2010 22:07:58 -0000	1.11
@@ -1,7 +1,7 @@
-set title [$package_id get_parameter PackageTitle [my instance_name]]
+set title [$package_id get_parameter PackageTitle [$package_id instance_name]]
 set toc   [$page include [list toc -open_page $name -decoration plain -remove_levels 1]]
 set i     [$page set __last_includelet]
-#my log "--last includelet = $i, class=[$i info class] [$page exists __is_book_page]"
+#$package_id log "--last includelet = $i, class=[$i info class] [$page exists __is_book_page]"
 
 # prevent recursive books
 if {$i ne "" && ![$page exists __is_book_page]} {