Index: openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql	7 Sep 2001 20:56:35 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/object-type-procs-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.5
@@ -13,7 +13,7 @@
                  where object_type = :object_type) o1, 
                acs_object_types o2
          where o2.tree_sortkey <= o1.tree_sortkey
-           and o1.tree_sortkey like (o2.tree_sortkey || '%')
+           and o1.tree_sortkey between o2.tree_sortkey and tree_right(o2.tree_sortkey)
          order by level desc
 
       </querytext>