Index: openacs-4/packages/cms/tcl/module-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/module-procs-postgresql.xql,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/cms/tcl/module-procs-postgresql.xql	20 Aug 2001 04:35:41 -0000	1.5
+++ openacs-4/packages/cms/tcl/module-procs-postgresql.xql	8 Dec 2001 01:18:00 -0000	1.6
@@ -104,11 +104,9 @@
             lpad(' ', tree_level(t.tree_sortkey), '-') || pretty_name as label,
             object_type as value
           from
-            acs_object_types t
-          where 
-            t.tree_sortkey like (select tree_sortkey || '%'
-                                   from acs_object_types 
-                                  where object_type = 'content_revision')
+            acs_object_types t, acs_object_types t2
+          where t2.object_type = 'content_revision'
+            and t.tree_sortkey between t2.tree_sortkey and tree_right(t2.tree_sortkey)
         
       </querytext>
 </fullquery>