Index: openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql,v
diff -u -r1.8.14.1 -r1.8.14.2
--- openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql	27 Oct 2015 22:56:30 -0000	1.8.14.1
+++ openacs-4/packages/acs-subsite/tcl/rel-types-procs-postgresql.xql	2 Jan 2016 12:42:04 -0000	1.8.14.2
@@ -3,20 +3,33 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="rel_types::additional_rel_types_group_type_p.group_rel_type_exists">      
-      <querytext>
+<fullquery name="rel_types::additional_rel_types_group_p.group_rel_type_exists">      
+<querytext>
+    select case when exists (select 1
+                             from acs_object_types t1, acs_object_types t2, group_type_rels g
+                             where g.group_id = :group_id
+                             and t2.object_type <> g.rel_type
+                             and t1.object_type in ('membership_rel','composition_rel')
+			     and t2.tree_sortkey between t1.tree_sortkey and tree_right(t1.tree_sortkey)
+			     )
+     then 1 else 0 end
+</querytext>
+</fullquery>
 
-             select case when exists (select 1
-                                      from acs_object_types t1, acs_object_types t2, group_type_rels g
-                                      where g.group_type = :group_type
-                                        and t2.object_type <> g.rel_type
-				        and t1.object_type in ('membership_rel','composition_rel')
-				        and t2.tree_sortkey between t1.tree_sortkey and tree_right(t1.tree_sortkey))
-                    then 1 else 0 end
-      
-      </querytext>
+<fullquery name="rel_types::additional_rel_types_group_type_p.group_rel_type_exists">      
+<querytext>
+    select case when exists (select 1
+                             from acs_object_types t1, acs_object_types t2, group_type_rels g
+                             where g.group_type = :group_type
+                             and t2.object_type <> g.rel_type
+                             and t1.object_type in ('membership_rel','composition_rel')
+			     and t2.tree_sortkey between t1.tree_sortkey and tree_right(t1.tree_sortkey)
+			     )
+     then 1 else 0 end
+</querytext>
 </fullquery>
 
+
 <fullquery name="rel_types::new.drop_type">
 <querytext>
 	select acs_rel_type__drop_type(:rel_type, 'f')