Index: openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl,v
diff -u -N -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl	18 Sep 2015 07:27:47 -0000	1.6.2.2
+++ openacs-4/packages/acs-subsite/www/admin/group-types/change-join-policy.tcl	2 Jan 2016 13:47:26 -0000	1.6.2.3
@@ -26,13 +26,7 @@
 	[list [export_vars -base one group_type] "One type"] \
 	"Edit default join policy"]
 
-if { ![db_0or1row select_pretty_name {
-    select t.pretty_name as group_type_pretty_name, t.dynamic_p,
-           nvl(gt.default_join_policy, 'open') as default_join_policy
-      from acs_object_types t, group_types gt
-     where t.object_type = :group_type
-       and t.object_type = gt.group_type(+)
-}] } {
+if { ![db_0or1row select_pretty_name {}] } {
     ad_return_error "Group type doesn't exist" "Group type \"$group_type\" doesn't exist"
     return
 }