Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.189.2.164 -r1.189.2.165
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	8 Mar 2023 17:53:41 -0000	1.189.2.164
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 Mar 2023 12:50:59 -0000	1.189.2.165
@@ -2201,7 +2201,7 @@
     return $stack
 }
 
-ad_proc -public ad_ns_set_to_tcl_vars {
+ad_proc -deprecated ad_ns_set_to_tcl_vars {
     {-duplicates overwrite}
     {-level 1}
     set_id
@@ -2210,6 +2210,14 @@
     correspondingly, i.e. if key is foo and value is bar, the Tcl var
     foo is set to bar.
 
+    DEPRECATED: the few remaining usages of this api in upstream code
+    were found to be easily replaceable with much saner and clearer
+    idioms.
+
+    @see upvar
+    @see for
+    @see ns_set
+
     @param duplicates This optional switch argument defines what happens if the
     Tcl var already exists, or if there are duplicate entries for the same key.
     <code>overwrites</code> just overwrites the var, which amounts to letting the