Index: openacs-4/packages/acs-subsite/www/admin/groups/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/index.tcl,v
diff -u -r1.4.6.1 -r1.4.6.2
--- openacs-4/packages/acs-subsite/www/admin/groups/index.tcl	10 Sep 2015 08:21:42 -0000	1.4.6.1
+++ openacs-4/packages/acs-subsite/www/admin/groups/index.tcl	6 Jun 2016 18:28:20 -0000	1.4.6.2
@@ -12,8 +12,7 @@
     {view_by "group_type"}
 } -validate {
     view_by_valid_p {
-	set valid_view_by_list [list group_type rel_type]
-	if { [lsearch $valid_view_by_list $view_by] == -1} { 
+	if { $view_by ni {group_type rel_type}} { 
 	    ad_complain "view_by is invalid."
 	}
     }