Index: openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	15 Jun 2005 16:02:55 -0000	1.2
+++ openacs-4/packages/mail-tracking/tcl/mail-tracking-callback-procs.tcl	24 Oct 2005 17:41:10 -0000	1.3
@@ -22,7 +22,11 @@
 } {
     create a new entry in the mail tracking table
 } {
-
+    
+    # We need to put lindex here since the value from
+    # the swithc converts this "element element" to this
+    # "{element element}"
+    set file_ids [lindex $file_ids 0]
     set log_id [mail_tracking::new -package_id $package_id \
 		    -sender_id $from_party_id \
 		    -recipient_id $to_party_id \