Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-display-list.tcl	10 Jan 2007 21:22:07 -0000	1.2
@@ -46,8 +46,8 @@
 
 set extra_tables ""
 set extra_where_clauses ""
-if {[string equal $ancestor_rel_type membership_rel]} {
-    if {![empty_string_p $member_state]} {
+if {$ancestor_rel_type eq "membership_rel"} {
+    if {$member_state ne ""} {
 	set extra_tables "membership_rels mr,"
 	set extra_where_clauses "
         and mr.rel_id = rels.rel_id