Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	27 Oct 2006 09:00:46 -0000	1.24
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	31 Jan 2007 15:34:14 -0000	1.25
@@ -815,7 +815,7 @@
     object_id
 } {
     
-    set package_id [db_string pm_package_id "select package_id from cr_folders cf, cr_items ci1, cr_items ci2 where cf.folder_id = ci1.parent_id and ci1.item_id = ci2.parent_id and ci2.item_id = :object_id" -default 0]
+    set package_id [acs_object::package_id -object_id $object_id]
     
     if {$package_id == 0} {