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.19 -r1.24.2.20
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	12 Apr 2022 09:36:39 -0000	1.24.2.19
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	22 Aug 2022 17:06:40 -0000	1.24.2.20
@@ -291,7 +291,7 @@
                             [::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)"
+    ad_log_deprecated proc "xo::parameter get -parameter $parameter" parameter::get
     return [::parameter::get -parameter $parameter -package_id $package_id \
                 {*}[expr {[info exists default] ? [list -default $default] : ""}]]
 
@@ -325,8 +325,8 @@
                             [::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)"
+    
+    ad_log_deprecated proc "xo::parameter set_value -parameter $parameter" 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]