Index: openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl	7 Aug 2017 23:47:58 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/group-types/groups-list.tcl	30 Sep 2020 09:14:17 -0000	1.3.2.1
@@ -1,11 +1,11 @@
-# /packages/acs-subsite/www/admin/group-types/groups-list.tcl
+ad_page_contract {
+    Group type list
+} {
+    group_type:notnull
+}
 
 # sets up datasource for groups-list.adp
 
-if { ![info exists group_type] || $group_type eq "" } {
-    error "Group type must be specified"
-}
-
 set user_id    [ad_conn user_id]
 set package_id [ad_conn package_id]