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.42 -r1.43
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	28 Jan 2007 15:59:05 -0000	1.42
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	31 Jan 2007 15:34:14 -0000	1.43
@@ -2174,7 +2174,7 @@
     
     @error 
 } {
-    set package_id [db_string package_id "select package_id from acs_objects where object_id = :project_item_id"]
+    set package_id [acs_object::package_id -object_id $project_item_id]
     return "[ad_url]/[apm_package_url_from_id $package_id]one?project_item_id=$project_item_id"
     
 }