Index: openacs-4/packages/acs-subsite/www/members/member-invite.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-invite.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/members/member-invite.tcl	30 Apr 2004 22:49:19 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/members/member-invite.tcl	10 Jan 2007 21:22:09 -0000	1.9
@@ -40,7 +40,7 @@
 ad_form -extend -name user_search -on_submit {
     set create_p [group::permission_p -privilege create $group_id]
     
-    if { [string equal $group_info(join_policy) "closed"] && !$create_p} {
+    if { $group_info(join_policy) eq "closed" && !$create_p} {
         ad_return_forbidden "Cannot invite members" "I'm sorry, but you're not allowed to invite members to this group"
         ad_script_abort
     }