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.36 -r1.37
--- openacs-4/packages/contacts/lib/email.tcl	30 Jun 2007 06:59:59 -0000	1.36
+++ openacs-4/packages/contacts/lib/email.tcl	11 Aug 2007 20:02:40 -0000	1.37
@@ -142,11 +142,14 @@
 
     append form_elements {
         {file_ids:text(hidden) {value $file_ids}}
-        {context_id:text(hidden) {value $context_id}}
         {files:text(inform),optional {label "[_ acs-mail-lite.Associated_files]"} {value $files}}
     }
 }
 
+append form_elements {
+    {context_id:text(hidden) {value $context_id}}
+}
+
 foreach var $export_vars {
     upvar $var var_value