Index: openacs-4/packages/acs-subsite/www/members/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/index.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-subsite/www/members/index.tcl	22 Jul 2005 00:32:25 -0000	1.17
+++ openacs-4/packages/acs-subsite/www/members/index.tcl	10 Jan 2007 21:22:08 -0000	1.18
@@ -157,7 +157,7 @@
 
 # Pull out all the relations of the specified type
 
-set show_partial_email_p [expr $user_id == 0]
+set show_partial_email_p [expr {$user_id == 0}]
 
 db_multirow -extend { 
     email_url
@@ -175,7 +175,7 @@
     if { $member_admin_p > 0 } {
         set rel_role_pretty [lang::util::localize $admin_role_pretty]
     } else {
-        if { ![empty_string_p $other_role_pretty] } {
+        if { $other_role_pretty ne "" } {
             set rel_role_pretty [lang::util::localize $other_role_pretty]
         } else {
             set rel_role_pretty [lang::util::localize $member_role_pretty]
@@ -217,7 +217,7 @@
 
     if { [ad_conn user_id] == 0 } {
         set email [string replace $email \
-                       [expr [string first "@" $email]+3] end "..."]
+                       [expr {[string first "@" $email]+3}] end "..."]
     } else {
         set email_url "mailto:$email"
     }