Index: openacs-4/packages/dotlrn/www/member-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/member-add-2.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/dotlrn/www/member-add-2.tcl	15 May 2009 21:35:41 -0000	1.15
+++ openacs-4/packages/dotlrn/www/member-add-2.tcl	1 Nov 2013 21:08:31 -0000	1.16
@@ -60,7 +60,7 @@
 
 if {$member_p} {
     set existing_role [dotlrn_community::get_role_pretty_name -community_id $community_id -rel_type [db_string select_role {}]]
-    if {[empty_string_p $existing_role]} {
+    if {$existing_role eq ""} {
 	set existing_role "member"
     }
 }