Index: openacs-4/packages/simulation/www/simplay/message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/message.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simulation/www/simplay/message.tcl	5 Jan 2004 15:35:40 -0000	1.6
+++ openacs-4/packages/simulation/www/simplay/message.tcl	5 Jan 2004 16:00:34 -0000	1.7
@@ -28,6 +28,7 @@
 
 set action [form::get_action message]
 
+
 if { [string equal $action "reply"] } {
 
     item::get_content \
@@ -94,7 +95,7 @@
 } -on_request {
     if { [llength $from_role_options] == 1 } {
         set sender_role_id [lindex [lindex $from_role_options 0] 1]
-        element set_properties message mode display
+        element set_properties message sender_role_id -mode display
     }
 } -new_request {
     if { [info exists body_text] } {
@@ -141,3 +142,4 @@
     ad_returnredirect [export_vars -base case { case_id }]
     ad_script_abort
 }
+