Index: openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	15 Oct 2001 20:15:43 -0000	1.4
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.5
@@ -55,8 +55,7 @@
 	select t2.object_type
 	  from acs_object_types t1, acs_object_types t2
 	 where t1.object_type = :object_type
-	   and t2.tree_sortkey <= t1.tree_sortkey
-	   and t1.tree_sortkey like (t2.tree_sortkey || '%')
+	   and t1.tree_sortkey between t2.tree_sortkey and tree_right(t2.tree_sortkey)
 	 order by t2.tree_sortkey desc
     
       </querytext>