Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -N -r1.34 -r1.35
--- openacs-4/packages/contacts/lib/email.tcl	22 Jun 2007 05:31:44 -0000	1.34
+++ openacs-4/packages/contacts/lib/email.tcl	25 Jun 2007 16:25:39 -0000	1.35
@@ -304,9 +304,9 @@
 		lappend values [list "{$element}" [set $element]]
 	    }
 	    
-	    set subject [contact::message::interpolate -text $subject -values $values]
+	    set interpol_subject [contact::message::interpolate -text $subject -values $values]
 
-	    set content_body [contact::message::interpolate -text $content_body -values $values]
+	    set interpol_content_body [contact::message::interpolate -text $content_body -values $values]
 	    
 	    # If we are doing mail through for tracking purposes
 	    # Set the reply_to_addr accordingly
@@ -325,8 +325,8 @@
 		-bcc_addr $bcc_list \
 		-from_addr "$from_addr" \
 		-reply_to "$reply_to_addr" \
-		-subject "$subject" \
-		-body "$content_body" \
+		-subject "$interpol_subject" \
+		-body "$interpol_content_body" \
 		-package_id $package_id \
 		-file_ids $file_ids \
 		-mime_type $mime_type \