Index: openacs-4/packages/planner/www/object-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/planner/www/object-update.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/planner/www/object-update.tcl	10 Jul 2009 17:03:40 -0000	1.1
+++ openacs-4/packages/planner/www/object-update.tcl	30 Nov 2018 11:37:38 -0000	1.2
@@ -20,12 +20,12 @@
     if {$object_id != 0} {
         set object_type [acs_object_type $object_id]
         if { [string equal $object_type "content_item"] } {
-            set object_type [content::item::content_type -item_id $object_id]
+            set object_type [content::item::get_content_type -item_id $object_id]
         }
         set image_specs "width=16 height=16"
         set object_image [planner::get_object_icon -object_type $object_type]
         set object_name [planner::get_object_name -object_id $object_id -object_type $object_type]
     } else {
         set object_name [lindex $label 0]
     }
-}
\ No newline at end of file
+}