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.15 -r1.24.2.16
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	2 Nov 2021 09:47:04 -0000	1.24.2.15
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	19 Nov 2021 19:30:54 -0000	1.24.2.16
@@ -280,6 +280,10 @@
                             [::xo::cc package_id] :
                             [ns_conn isconnected] ? [ad_conn package_id] : $::acs::kernel_id}]
     }
+    ns_log notice "deprecated xo::parameter get -parameter $parameter called (replaced by ::parameter::get)"
+    return [::parameter::get -parameter $parameter -package_id $package_id \
+                {*}[expr {[info exists default] ? [list -default $default] : ""}]]
+
     set parameter_obj [:get_parameter_object \
                            -parameter_name $parameter \
                            -package_id $package_id \
@@ -310,10 +314,13 @@
                             [::xo::cc package_id] :
                             [ns_conn isconnected] ? [ad_conn package_id] : $::acs::kernel_id}]
     }
+    ns_log notice "deprecated xo::parameter set_value -parameter $parameter called " \
+        "(replaced by ::parameter::set_value)"
+    return [::parameter::set_value -package_id $package_id -parameter $parameter -value $value]
+
     set parameter_obj [:get_parameter_object -parameter_name $parameter -package_id $package_id]
     if {$parameter_obj ne ""} {
       $parameter_obj set_per_package_instance_value $package_id $value
-      ::parameter::set_value -package_id $package_id -parameter MenuBar -value $value
     } else {
       error "could not create parameter object"
     }
@@ -337,7 +344,8 @@
     }
     parameter instproc 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]"
+      ns_log notice "[list nsv_dict set $array $package_id ${:parameter_name} $value]"
+      xo::show_stack
       nsv_dict set $array $package_id ${:parameter_name} $value
     }
     parameter instproc clear_per_package_instance_value {package_id} {
@@ -460,7 +468,7 @@
     }
   }
 
-  parameter initialize_parameters
+  #parameter initialize_parameters
 
   #
   # For the time being: catch changed parameter values