Index: openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	29 Aug 2001 21:22:49 -0000	1.4
+++ openacs-4/packages/acs-mail/tcl/acs-mail-procs.tcl	2 Sep 2001 12:26:05 -0000	1.5
@@ -240,7 +240,7 @@
 						# that we will then uuencode
 						set file [ns_tmpnam]
 						db_blob_get_file copy_blob_to_file "
-						    select r.content, istorage_type 
+						    select r.content, i.storage_type 
 						    from cr_revisions r, cr_items i 
 						    where r.revision_id = $revision_id and
 						          r.item_id = i.item_id " -file $file