Index: openacs-4/packages/xowiki/www/admin/list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/list.tcl,v
diff -u -N -r1.22 -r1.23
--- openacs-4/packages/xowiki/www/admin/list.tcl	9 May 2008 21:43:58 -0000	1.22
+++ openacs-4/packages/xowiki/www/admin/list.tcl	5 Sep 2008 17:24:16 -0000	1.23
@@ -20,13 +20,13 @@
   set per_type 0
   set supertype ::xowiki::Page
   set object_types [$supertype object_types]
-  set title "List of all kind of [$supertype set pretty_plural]"
+  set page_title "List of all kind of [$supertype set pretty_plural]"
   set with_subtypes true
   set object_type $supertype
 } else {
   set per_type 1
   set object_types [list $object_type]
-  set title "Index of [$object_type set pretty_plural]"
+  set page_title "Index of [$object_type set pretty_plural]"
   set with_subtypes false
 }
 
@@ -142,3 +142,5 @@
         }
 
 set t1 [t1 asHTML]
+# db_foreach clobbers title, so re-establish it
+set title $page_title