Index: openacs-4/packages/xowiki/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/index.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/xowiki/www/admin/index.tcl	17 Aug 2006 01:44:26 -0000	1.13
+++ openacs-4/packages/xowiki/www/admin/index.tcl	25 May 2007 09:29:59 -0000	1.14
@@ -35,10 +35,7 @@
     }
 
 set base [::$package_id package_url]
-db_foreach type_select \
-    "select object_type from acs_object_types where 
-        tree_sortkey between :object_type_key and tree_right(:object_type_key)
-    " {
+foreach object_type $object_types {
 
       set return_url [export_vars -base ${base}admin {object_type}]
       t1 add \