Index: openacs-4/contrib/packages/simulation/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/template-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	9 Jan 2004 09:38:25 -0000	1.40
+++ openacs-4/contrib/packages/simulation/tcl/template-procs.tcl	12 Jan 2004 11:06:17 -0000	1.41
@@ -712,8 +712,14 @@
                       states workflow::state::fsm
                   }]
 
-    # TODO: Add sim_template attributes to the spec
+    simulation::template::get -workflow_id $workflow_id -array simulation
+    
+    set inner_spec [lindex $spec 1]
 
+    lappend inner_spec suggested_duration $simulation(suggested_duration)
+
+    set spec [list [lindex $spec 0] $inner_spec]
+
     return $spec
 }
 
Index: openacs-4/packages/simulation/tcl/template-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/template-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/simulation/tcl/template-procs.tcl	9 Jan 2004 09:38:25 -0000	1.40
+++ openacs-4/packages/simulation/tcl/template-procs.tcl	12 Jan 2004 11:06:17 -0000	1.41
@@ -712,8 +712,14 @@
                       states workflow::state::fsm
                   }]
 
-    # TODO: Add sim_template attributes to the spec
+    simulation::template::get -workflow_id $workflow_id -array simulation
+    
+    set inner_spec [lindex $spec 1]
 
+    lappend inner_spec suggested_duration $simulation(suggested_duration)
+
+    set spec [list [lindex $spec 0] $inner_spec]
+
     return $spec
 }