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.76 -r1.77
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	11 Jan 2008 11:10:40 -0000	1.76
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	11 Jan 2008 13:52:21 -0000	1.77
@@ -490,7 +490,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 ","]]    
             }
             
             acs_mail_lite::smtp -multi_token $tokens -headers $headers_list