Index: openacs-4/packages/simulation/tcl/sim-case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/sim-case-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/tcl/sim-case-procs.tcl	19 Dec 2003 09:42:24 -0000	1.1
+++ openacs-4/packages/simulation/tcl/sim-case-procs.tcl	19 Dec 2003 11:25:20 -0000	1.2
@@ -21,6 +21,8 @@
 
     @return sim_case_id
 } {
+    set package_id [ad_conn package_id]
+
     set extra_vars [ns_set create]
     oacs_util::vars_to_ns_set \
         -ns_set $extra_vars \