Index: openacs-4/contrib/packages/simulation/tcl/message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/message-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/tcl/message-procs.tcl	26 Jan 2004 14:21:02 -0000	1.3
+++ openacs-4/contrib/packages/simulation/tcl/message-procs.tcl	26 Jan 2004 15:23:37 -0000	1.4
@@ -97,7 +97,7 @@
 
         notification::new \
             -type_id [notification::type::get_type_id -short_name [simulation::notification::message::type_short_name]] \
-            -object_id $case(workflow_id) \
+            -object_id [ad_conn package_id] \
             -notif_subject $notif_subject \
             -notif_text $notif_body \
             -action_id $item_id \