Index: openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl,v
diff -u -N -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl	10 Sep 2015 08:21:41 -0000	1.5.2.1
+++ openacs-4/packages/acs-subsite/www/admin/group-types/rel-type-add-2.tcl	27 Oct 2015 23:01:35 -0000	1.5.2.2
@@ -18,13 +18,7 @@
 	# This test makes sure this group_type can accept the
 	# specified rel type. This means the group type is itself a
 	# type (or subtype) of rel_type.object_type_one
-	if { ![db_string types_match_p {
-	    select count(*)
-	      from acs_rel_types t
-	     where (t.object_type_one = :group_type 
-                    or acs_object_type.is_subtype_p(t.object_type_one, :group_type) = 't')
-               and t.rel_type = :rel_type
-	}] } {
+	if { ![db_string types_match_p {}] } {
 	    ad_complain "Groups of type \"$group_type\" cannot use relationships of type \"$rel_type.\""
 	}
     }