Index: openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl,v
diff -u -N -r1.29.2.15 -r1.29.2.16
--- openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	28 Dec 2021 11:23:13 -0000	1.29.2.15
+++ openacs-4/packages/acs-tcl/tcl/deprecated-procs.tcl	28 Dec 2021 11:25:40 -0000	1.29.2.16
@@ -3936,8 +3936,7 @@
     correspondingly: key is the name of the var, value is the value of
     the var. The caller is (obviously) responsible for freeing the set if need be.
 
-    DEPRECATED: modern ns_set idioms allow to replace this proc with a
-    better oneliner in every case.
+    DEPRECATED: modern ns_set idioms make this proc obsolete
 
     @see ns_set
 
@@ -3969,6 +3968,47 @@
     return $set_id
 }
 
+ad_proc -deprecated ad_tcl_vars_list_to_ns_set {
+    -set_id
+    -put:boolean
+    vars_list
+} {
+    Takes a Tcl list of variable names and <code>ns_set update</code>s values in an ns_set
+    correspondingly: key is the name of the var, value is the value of
+    the var. The caller is (obviously) responsible for freeing the set if need be.
+
+    DEPRECATED: modern ns_set idioms make this proc obsolete
+
+    @see ns_set
+
+    @param set_id If this switch is specified, it'll use this set instead of
+    creating a new one.
+
+    @param put If this boolean switch is specified, it'll use <code>ns_set put</code> instead
+    of <code>ns_set update</code> (update is default)
+
+    @param vars_list A Tcl list of variable names that will be transported into the ns_set.
+
+    @author Lars Pind (lars@pinds.com)
+
+} {
+    if { ![info exists set_id] } {
+        set set_id [ns_set create]
+    }
+
+    if { $put_p } {
+        set command put
+    } else {
+        set command update
+    }
+
+    foreach varname $vars_list {
+        upvar $varname var
+        ns_set $command $set_id $varname $var
+    }
+    return $set_id
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
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 -N -r1.189.2.113 -r1.189.2.114
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 11:23:13 -0000	1.189.2.113
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	28 Dec 2021 11:25:40 -0000	1.189.2.114
@@ -2183,43 +2183,6 @@
     }
 }
 
-ad_proc -public ad_tcl_vars_list_to_ns_set {
-    -set_id
-    -put:boolean
-    vars_list
-} {
-    Takes a Tcl list of variable names and <code>ns_set update</code>s values in an ns_set
-    correspondingly: key is the name of the var, value is the value of
-    the var. The caller is (obviously) responsible for freeing the set if need be.
-
-    @param set_id If this switch is specified, it'll use this set instead of
-    creating a new one.
-
-    @param put If this boolean switch is specified, it'll use <code>ns_set put</code> instead
-    of <code>ns_set update</code> (update is default)
-
-    @param vars_list A Tcl list of variable names that will be transported into the ns_set.
-
-    @author Lars Pind (lars@pinds.com)
-
-} {
-    if { ![info exists set_id] } {
-        set set_id [ns_set create]
-    }
-
-    if { $put_p } {
-        set command put
-    } else {
-        set command update
-    }
-
-    foreach varname $vars_list {
-        upvar $varname var
-        ns_set $command $set_id $varname $var
-    }
-    return $set_id
-}
-
 ad_proc -public util_sets_equal_p { list1 list2 } {
     Tests whether each unique string in list1 occurs as many
     times in list1 as in list2 and vice versa (regardless of order).