Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -N -r1.16 -r1.16.2.1
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	27 Oct 2014 16:42:00 -0000	1.16
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	1 Dec 2015 09:26:14 -0000	1.16.2.1
@@ -162,10 +162,11 @@
   parameter proc get_package_key_from_id {
                                           -package_id:required
                                         } {
-    return [ns_cache eval xotcl_object_type_cache package_key-$package_id {
-      ::xo::dc get_value get_package_key \
-          "select package_key from apm_packages where package_id = :package_id"
-    }]
+    return [apm_package_key_from_id $package_id]
+    #return [ns_cache eval xotcl_object_type_cache package_key-$package_id {
+    #  ::xo::dc get_value get_package_key \
+    #      "select package_key from apm_packages where package_id = :package_id"
+    #}]
   }
   parameter proc get_package_id_from_package_key {
                                                   -package_key:required