Index: openacs-4/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	10 Jun 2005 21:34:17 -0000	1.10
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	28 Jul 2005 10:57:56 -0000	1.11
@@ -1569,8 +1569,8 @@
     
     @error 
 } {
-    set project_id [application_data_link::get_linked -this_object_id $logger_project -to_object_type "pm_project"]
-    if {[empty_string_p $project_id]}�{
+    set project_id [application_data_link::get_linked -from_object_id $logger_project -to_object_type "pm_project"]
+    if {[empty_string_p $project_id]} {
 	return "no project"
     } else {
 	return $project_id