Index: openacs-4/packages/workflow/www/admin/role-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/role-ae.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/workflow/www/admin/role-ae.tcl	26 Oct 2011 01:11:55 -0000	1.3
+++ openacs-4/packages/workflow/www/admin/role-ae.tcl	17 Sep 2013 19:10:35 -0000	1.4
@@ -30,7 +30,7 @@
     set callback_list [list]
     foreach callback_name [split $callbacks "\n"] {
 	set callback_name [string trim $callback_name]
-	if {![empty_string_p $callback_name]} {
+	if {$callback_name ne ""} {
 	    lappend callback_list $callback_name
 	}
     }
@@ -50,7 +50,7 @@
     set callback_list [list]
     foreach callback_name [split $callbacks "\n"] {
 	set callback_name [string trim $callback_name]
-	if {![empty_string_p $callback_name]} {
+	if {$callback_name ne ""} {
 	    lappend callback_list $callback_name
 	}
     }