Index: openacs-4/packages/dotlrn-admin/www/admin/admin-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/admin-add-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/dotlrn-admin/www/admin/admin-add-2.tcl	20 Aug 2004 14:44:22 -0000	1.1
+++ openacs-4/packages/dotlrn-admin/www/admin/admin-add-2.tcl	28 Jun 2015 12:09:33 -0000	1.2
@@ -46,7 +46,7 @@
             select group_id from groups where group_name='dotlrn-admin'" -default ""]
 
 if {!$member_p} {
-    if {![empty_string_p $group_id] } {
+    if {$group_id ne "" } {
         group::add_member -group_id $group_id -user_id $user_id
     }
 }