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.24.2.16 -r1.24.2.17
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	19 Nov 2021 19:30:54 -0000	1.24.2.16
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	5 Dec 2021 16:57:41 -0000	1.24.2.17
@@ -339,10 +339,11 @@
     # configuration values on a single mutex. This can be used for
     # fine-tuning mutex locks on such nsvs in the future.
     #
-    parameter instproc per_package_id_name {package_id} {
+    parameter instproc -deprecated per_package_id_name {package_id} {
+      xo::show_stack
       return CFG-[expr {$package_id % 2}]
     }
-    parameter instproc set_per_package_instance_value {package_id value} {
+    parameter instproc -deprecated set_per_package_instance_value {package_id value} {
       set array [:per_package_id_name $package_id]
       ns_log notice "[list nsv_dict set $array $package_id ${:parameter_name} $value]"
       xo::show_stack