Index: openacs-4/packages/workflow/tcl/action-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/action-procs.tcl,v
diff -u -N -r1.26 -r1.27
--- openacs-4/packages/workflow/tcl/action-procs.tcl	12 Jan 2004 10:58:21 -0000	1.26
+++ openacs-4/packages/workflow/tcl/action-procs.tcl	13 Jan 2004 12:36:47 -0000	1.27
@@ -460,12 +460,6 @@
         }
     }
 
-    if { !$internal_p } {
-        # Flush the workflow cache, as changing an action changes the entire workflow
-        # e.g. initial_action_p, enabled_in_states.
-        workflow::flush_cache -workflow_id $workflow_id
-    }
-
     return $action_id
 }
 
@@ -1054,10 +1048,6 @@
         }
     }
 
-    if { !$internal_p } {
-        workflow::flush_cache -workflow_id $workflow_id
-    }
-
     return $action_id
 }
 
@@ -1317,7 +1307,7 @@
     # Get rid of a few defaults
     array set defaults { initial_action_p f always_enabled_p f }
 
-    set spec {}
+    set spec [list]
     foreach name [lsort [array names row]] {
         if { ![empty_string_p $row($name)] && ![exists_and_equal defaults($name) $row($name)] } {
             lappend spec $name $row($name)