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.84 -r1.85
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	14 Aug 2009 12:04:33 -0000	1.84
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	18 Aug 2009 23:22:17 -0000	1.85
@@ -500,7 +500,7 @@
             lappend headers_list [list CC [join $cc_addr ","]]
         }
         if { $bcc_addr ne ""} {
-            lappend headers_list [list BCC [join $bcc_addr ","]]
+            lappend headers_list [list DCC [join $bcc_addr ","]]
         }
 
         # Build the originator address to be used as enveloppe sender