Index: openacs-4/packages/simulation/tcl/sim-role-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/sim-role-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simulation/tcl/sim-role-procs.tcl	18 Dec 2003 15:22:55 -0000	1.3
+++ openacs-4/packages/simulation/tcl/sim-role-procs.tcl	13 Jan 2004 12:37:12 -0000	1.4
@@ -245,10 +245,16 @@
         }
     }
 
-    set spec [workflow::role::generate_spec -role_id $role_id]
+    # Get parent spec
+    array set row [workflow::role::generate_spec -role_id $role_id]
+    
+    # Get local spec, remove unwanted entries
+    get -role_id $role_id -array local_row -local_only
 
-    get -role_id $role_id -array row -local_only
+    # Copy local stuff in over the parent stuff
+    array set row [array get local_row]
 
+    # 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)