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 -N -r1.17 -r1.18
--- openacs-4/packages/workflow/tcl/workflow-procs.tcl	17 Dec 2003 16:13:54 -0000	1.17
+++ openacs-4/packages/workflow/tcl/workflow-procs.tcl	17 Dec 2003 19:14:02 -0000	1.18
@@ -753,6 +753,11 @@
                     array unset row
                     array set row $subspec
                     set row(short_name) $subshort_name
+
+                    # string trim everything
+                    foreach key [array names row] { 
+                        set row($key) [string trim $row($key)]
+                    }
     
 #                    ns_log Notice "LARS: ${namespace}::edit -- short_name $row(short_name) -- [array get row] -- [db_list select_roles { select short_name from workflow_roles where workflow_id = :workflow_id }]"
                     ${namespace}::edit \