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.26.2.1 -r1.26.2.2
--- openacs-4/packages/simulation/www/simplay/message.tcl	16 Mar 2004 16:16:19 -0000	1.26.2.1
+++ openacs-4/packages/simulation/www/simplay/message.tcl	17 Mar 2004 09:45:56 -0000	1.26.2.2
@@ -190,8 +190,9 @@
         set attachments ""
         foreach attachment_set $attachments_set_list {
             set object_url [simulation::object::content_url -name [ns_set get $attachment_set name]]
-            set object_title [ns_set get $attachment_set title]
-            append attachments "<a href=\"$object_url\">$object_title</a> ($content(mime_type))<br>"
+            set object_title [ns_set get $attachment_set title].
+            set mime_type [ns_set get $attachment_set mime_type]
+            append attachments "<a href=\"$object_url\">$object_title</a> ($mime_type)<br>"
         }
         if { [llength $attachments_set_list] == 0 } {
             element set_properties message attachments -widget hidden