Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	9 Mar 2007 11:02:56 -0000	1.46
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	25 Mar 2007 21:53:52 -0000	1.47
@@ -53,10 +53,8 @@
   }
 
   proc package_id_from_package_key { key } {
-    set id [apm_version_id_from_package_key $key]
-    set mount_url [site_node::get_children -all -package_key $key -node_id $id]
-    array set site_node [site_node::get -url $mount_url]
-    return $site_node(package_id)
+    return [db_string get_package_id_from_key \
+                {select package_id from apm_packages where package_key = :key}]
   }
 
   CrClass instproc unknown { obj args } {