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 -r1.23 -r1.24
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	20 May 2018 11:23:00 -0000	1.23
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	22 Jun 2018 20:11:55 -0000	1.24
@@ -159,13 +159,11 @@
   #
   # Methods on the parameter class object
   #
-  parameter proc get_package_key_from_id {
-                                          -package_id:required
-                                        } {
+  parameter proc get_package_key_from_id {-package_id:required} {
     return [apm_package_key_from_id $package_id]
   }
   parameter proc get_package_id_from_package_key {-package_key:required} {
-    return [ns_cache eval xotcl_object_type_cache package_id-$package_key {
+    return [ns_cache eval xotcl_package_cache package_id-$package_key {
       ::xo::dc get_value get_package_id \
           [::xo::dc select -vars package_id -from apm_packages \
                -where "package_key = :package_key" -limit 1]