Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/workflow/tcl/case-procs.tcl	27 Jan 2004 15:33:45 -0000	1.26
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	29 Jan 2004 14:28:07 -0000	1.27
@@ -93,14 +93,21 @@
 
             set states [workflow::fsm::get_states -workflow_id $workflow_id]
             
+	    if { [llength $states] == 0 } {
+		error "workflow $workflow_id doesn't have any states"
+	    }
+
             # We use the first state as the initial state
-            set action_row(new_state_id) [lindex $states 0]
-            
+            set action_row(new_state_id) [lindex $states 0]           	    
+
             # Add the new initial action
             set initial_action_id [workflow::action::fsm::edit \
                                        -operation "insert" \
                                        -array action_row \
                                        -workflow_id $workflow_id]
+	    
+	    workflow::flush_cache -workflow_id $workflow_id
+	    
         } else {
             # NOTE: FSM-specific check here