Index: openacs-4/packages/acs-subsite/www/register/user-join.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-join.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/www/register/user-join.tcl	4 Jun 2006 00:45:46 -0000	1.11
+++ openacs-4/packages/acs-subsite/www/register/user-join.tcl	10 Jan 2007 21:22:09 -0000	1.12
@@ -40,7 +40,7 @@
     set ret_link ""
 }
 
-if { [string equal $join_policy closed] } {
+if {$join_policy eq "closed"} {
     ad_return_error [_ acs-subsite.Closed_group] "[_ acs-subsite.This_group_is_closed]<p>$ret_link"
     ad_script_abort
 }
@@ -64,7 +64,7 @@
         set required_seg [multirow get required_segments $rownum]
         if { ![group::member_p -group_id $required_segments(group_id)] } {
 
-            if { [string equal $required_segments(join_policy) "closed"] } {
+            if {$required_segments(join_policy) eq "closed"} {
                 ad_return_error [_ acs-subsite.Closed_group] "[_ acs-subsite.This_group_is_closed]<p>$ret_link"
                 ad_script_abort
             }
@@ -151,12 +151,12 @@
 
         if { [permission::permission_p -object_id $group_id -privilege "admin"] } {
             set member_state "approved"
-            if { [string equal $rel_type "membership_rel"] } {
+            if {$rel_type eq "membership_rel"} {
                 # If they already have admin, bump them to an admin_rel
                 set rel_type "admin_rel"
             }
         } else {
-            if { [string equal $join_policy "needs approval"]  } {
+            if {$join_policy eq "needs approval"} {
                 set member_state "needs approval"
             } else {
                 set member_state "approved"