Index: openacs-4/packages/simulation/tcl/message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/message-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/simulation/tcl/message-procs.tcl	26 Jan 2004 15:23:37 -0000	1.4
+++ openacs-4/packages/simulation/tcl/message-procs.tcl	30 Jan 2004 11:17:16 -0000	1.5
@@ -18,6 +18,7 @@
     {-content_type "sim_message"}
     {-item_name ""}
     {-attachments ""}
+    {-entry_id {}}
 } {
     Create new simulation message.
     
@@ -46,7 +47,8 @@
         set attributes [list \
                             [list from_role_id $from_role_id] \
                             [list to_role_id $to_role_id] \
-                            [list case_id $case_id]]
+                            [list case_id $case_id] \
+                            [list entry_id $entry_id]]
         
         set revision_id [bcms::revision::add_revision \
                              -item_id $item_id \