Index: openacs-4/packages/forums/lib/message/attachment-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/attachment-list.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/forums/lib/message/attachment-list.tcl	20 Jan 2018 22:56:50 -0000	1.6
+++ openacs-4/packages/forums/lib/message/attachment-list.tcl	24 Apr 2018 14:28:56 -0000	1.7
@@ -18,8 +18,7 @@
 # get the attachments
 template::multirow create attachments url name
 foreach attachment [attachments::get_attachments -object_id $message(message_id)] {
-    set url [lindex $attachment 2]
-    set name [lindex $attachment 1]
+    lassign $attachment . name url
     template::multirow append attachments $url $name
 }