Index: openacs-4/packages/workflow/www/admin/workflow-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/workflow-ae.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/workflow/www/admin/workflow-ae.tcl	26 Oct 2011 01:11:55 -0000	1.3
+++ openacs-4/packages/workflow/www/admin/workflow-ae.tcl	17 Sep 2013 19:10:35 -0000	1.4
@@ -30,7 +30,7 @@
     set new_lines	""
 
     for {set i 0} {$i < [string length $name]} {incr i} {
-	if {[string index $name $i] == " "} {
+	if {[string index $name $i] eq " "} {
 	    append new_lines "&nbsp;"
 	} else {
 	    break;
@@ -62,7 +62,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
 	}
     }
@@ -92,7 +92,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
 	}
     }