Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	4 Aug 2005 05:55:11 -0000	1.29
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	4 Aug 2005 16:57:10 -0000	1.30
@@ -839,9 +839,9 @@
 		    }
 	    } elseif {[exists_and_not_null file_ids]} {
 		
-		db_foreach get_file_info {select r.mime_type,r.title, r.content as filename
+		db_foreach get_file_info "select r.mime_type,r.title, r.content as filename
 		    from cr_revisions r
-		    where r.revision_id in ([join $file_ids ","])} {
+		    where r.revision_id in ([join $file_ids ","])" {
 			lappend tokens [mime::initialize -param [list name "[ad_quotehtml $title]"] -canonical $mime_type -file "[cr_fs_path]$filename"]
 		    }
 	    }