Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	17 Sep 2013 19:10:34 -0000	1.29
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	14 Oct 2013 17:59:52 -0000	1.30
@@ -526,7 +526,7 @@
         regsub -all {[- ]} $short_name {_} short_name
         regsub -all {[^a-zA-Z_0-9]} $short_name {} short_name
 
-        if { [lsearch -exact $existing_short_names $short_name] != -1 } {
+        if {$short_name in $existing_short_names} {
             error "Workflow with short_name '$short_name' already exists for this package_key and object_id."
         }
     }