Index: openacs-4/packages/project-manager/www/comments/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/www/comments/add.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/project-manager/www/comments/add.tcl	22 May 2006 06:14:27 -0000	1.10
+++ openacs-4/packages/project-manager/www/comments/add.tcl	22 May 2006 10:00:05 -0000	1.11
@@ -49,7 +49,7 @@
 	if { [string equal [lsearch $observer_role_id [lindex $assignee 1]] "-1"]} {
 	    # Not an observer. Added to the list
 	    set party_id [lindex $assignee 0]
-	    set name [person::name -party_id $party_id]
+	    set name [person::name -person_id $party_id]
 	    set email [party::email -party_id $party_id]
 
 	    if {$show_role_p} {
@@ -65,7 +65,7 @@
     # We want every assignee so we just get the assignees name
     foreach assignee $assignees {
 	set party_id [lindex $assignee 0]
-	set name [person::name -party_id $party_id]
+	set name [person::name -person_id $party_id]
 	set email [party::email -party_id $party_id]
 
 	if {$show_role_p} {