Index: openacs-4/packages/simulation/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/messages.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/simulation/lib/messages.tcl	5 Jan 2004 16:31:59 -0000	1.8
+++ openacs-4/packages/simulation/lib/messages.tcl	5 Jan 2004 17:05:07 -0000	1.9
@@ -15,7 +15,11 @@
 
 set package_id [ad_conn package_id]
 
-set user_roles [workflow::case::get_user_roles -case_id $case_id]
+if { [exists_and_not_null case_id] } {
+    set user_roles [workflow::case::get_user_roles -case_id $case_id]
+} else {
+    set user_roles [list]
+}
 
 set elements {
     from {