Index: openacs-4/contrib/packages/simulation/tcl/sim-action-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/sim-action-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/simulation/tcl/sim-action-procs.tcl	17 Dec 2003 14:05:22 -0000	1.1
+++ openacs-4/contrib/packages/simulation/tcl/sim-action-procs.tcl	13 Jan 2004 12:37:12 -0000	1.2
@@ -223,12 +223,17 @@
         }
     }
 
-    set spec [workflow::action::fsm::generate_spec -action_id $action_id]
+    # Get parent spec
+    array set row [workflow::action::fsm::generate_spec -action_id $action_id]
 
-    get -action_id $action_id -array row -local_only
+    # Get local spec, remove unwanted entries
+    get -action_id $action_id -array local_row -local_only
+    array unset local_row recipient
+    
+    # Copy local stuff in over the parent stuff
+    array set row [array get local_row]
 
-    array unset row recipient
-
+    # Output the entire thing in alpha sort order
     foreach name [lsort [array names row]] {
         if { ![empty_string_p $row($name)] } {
             lappend spec $name $row($name)