Index: openacs-4/packages/workflow/www/admin/workflow-clone.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/www/admin/workflow-clone.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/workflow/www/admin/workflow-clone.tcl	26 Oct 2011 01:11:55 -0000	1.3
+++ openacs-4/packages/workflow/www/admin/workflow-clone.tcl	17 Sep 2013 19:10:35 -0000	1.4
@@ -32,7 +32,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;