Index: openacs-4/packages/contacts/lib/contact-complaint-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-complaint-form.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	16 Oct 2005 12:43:54 -0000	1.13
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	20 Oct 2005 16:05:33 -0000	1.14
@@ -47,7 +47,7 @@
     set emp_options [list]
     lappend emp_options [list "- - - - - -" ""]
     set employee_list [contact::util::get_employees -organization_id $customer_id]
-    foreach employee_id $employee_list {
+    foreach emp_id $employee_list {
 	set emp_name [contact::name -party_id $emp_id]
 	append emp_name " ([contact::email -party_id $emp_id])"
 	lappend emp_options [list $emp_name $emp_id]