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.3 -r1.4
--- openacs-4/packages/contacts/lib/contact-complaint-form.tcl	10 Aug 2005 14:59:12 -0000	1.3
+++ openacs-4/packages/contacts/lib/contact-complaint-form.tcl	11 Aug 2005 08:27:58 -0000	1.4
@@ -98,7 +98,7 @@
 	}
 	{project:text(inform)
 	    {label "[_ contacts.Object]"}
-	    {value "[pm::project::name -project_id $object_id]"}
+	    {value "[pm::project::name -project_item_id $object_id]"}
 	}
     }
 }