Index: openacs-4/packages/workflow/tcl/role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/workflow/tcl/role-procs.tcl	10 Dec 2003 16:05:39 -0000	1.12
+++ openacs-4/packages/workflow/tcl/role-procs.tcl	11 Dec 2003 15:30:37 -0000	1.13
@@ -168,7 +168,8 @@
                     set $varname [workflow::role::generate_short_name \
                                       -workflow_id $workflow_id \
                                       -pretty_name $row(pretty_name) \
-                                      -short_name $row(short_name)]
+                                      -short_name $row(short_name) \
+                                      -role_id $role_id]
                 }
                 default {
                     set $varname $row($attr)