Index: openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl	4 Jun 2006 00:45:47 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/membership-rel-procs.tcl	10 Jan 2007 21:22:12 -0000	1.8
@@ -27,7 +27,7 @@
 
             # If user is being undeleted - remove him from the public group
             acs_user::get -user_id $rel_user_id -array user
-            if { [string equal $user(member_state) "deleted"] && [string equal $state "approved"] } {
+            if { $user(member_state) eq "deleted" && $state eq "approved" } {
                 group::remove_member \
                     -group_id [acs_magic_object the_public] \
                     -user_id $rel_user_id
@@ -64,7 +64,7 @@
             db_dml update_modifying_user {}
         }
 
-        if { ![empty_string_p $rel_user_id] } {
+        if { $rel_user_id ne "" } {
             acs_user::flush_cache -user_id $rel_user_id
         }
     }