Index: openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql	22 Jul 2001 17:28:40 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/subsite-callback-procs-postgresql.xql	4 Dec 2001 00:20:47 -0000	1.3
@@ -11,7 +11,7 @@
 	 where object_type in (select t2.object_type
 	                         from acs_object_types t1, acs_object_types t2
 	                        where 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)
 				  and t1.object_type = :object_type)
 	   and event_type = :event_type