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 -N -r1.7 -r1.8
--- openacs-4/packages/workflow/tcl/state-procs.tcl	11 Dec 2003 15:30:37 -0000	1.7
+++ openacs-4/packages/workflow/tcl/state-procs.tcl	15 Dec 2003 12:14:48 -0000	1.8
@@ -418,14 +418,14 @@
     Generate the spec for the block containing the definition of all
     states for the workflow.
 
-    @param workflow_id The id of the workflow to delete.
+    @param workflow_id The id of the workflow to get the states spec for
+
     @return The states spec
 
     @author Lars Pind (lars@collaboraid.biz)
 } {
     # states(short_name) { ... state-spec ... }
-    array set states [list]
-
+    set states_list [list]
     foreach state_id [workflow::fsm::get_states -workflow_id $workflow_id] {
         lappend states_list [get_element -state_id $state_id -element short_name] [generate_spec -state_id $state_id]
     }