Index: openacs-4/packages/workflow/tcl/state-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/state-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/workflow/tcl/state-procs.tcl	9 Dec 2003 15:46:43 -0000	1.6
+++ openacs-4/packages/workflow/tcl/state-procs.tcl	11 Dec 2003 15:30:37 -0000	1.7
@@ -140,7 +140,8 @@
                     set $varname [workflow::state::fsm::generate_short_name \
                                       -workflow_id $workflow_id \
                                       -pretty_name $row(pretty_name) \
-                                      -short_name $row(short_name)]
+                                      -short_name $row(short_name) \
+                                      -state_id $state_id]
                 }
                 default {
                     set $varname $row($attr)