Index: openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl,v
diff -u -N -r1.18 -r1.19
--- openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	6 Jul 2007 12:13:25 -0000	1.18
+++ openacs-4/packages/project-manager/tcl/project-manager-callback-procs.tcl	30 Nov 2018 11:37:38 -0000	1.19
@@ -234,7 +234,7 @@
 } {
 
     # Check if the object_id is a task
-    if {[content::item::content_type -item_id $object_id] eq "pm_task"} {
+    if {[content::item::get_content_type -item_id $object_id] eq "pm_task"} {
 	
 	set task_item_id $object_id