Index: openacs-4/packages/acs-content-repository/tcl/filter-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/filter-procs.tcl,v
diff -u -r1.41.2.3 -r1.41.2.4
--- openacs-4/packages/acs-content-repository/tcl/filter-procs.tcl	25 Aug 2020 14:37:14 -0000	1.41.2.3
+++ openacs-4/packages/acs-content-repository/tcl/filter-procs.tcl	29 Aug 2022 11:00:26 -0000	1.41.2.4
@@ -270,7 +270,9 @@
 }
 
 \# Ordinary text/* mime type.
-template::util::array_to_vars content
+foreach {key value} [array get content] {
+   set $key $value
+}
 
 set text \[cr_write_content -string -revision_id \$revision_id\]
 if { !\[string equal \"text/html\" \$content(mime_type)\] } {
Index: openacs-4/packages/acs-content-repository/www/doc/guide/publish.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/www/doc/guide/publish.adp,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/acs-content-repository/www/doc/guide/publish.adp	3 Sep 2021 09:14:42 -0000	1.4.2.2
+++ openacs-4/packages/acs-content-repository/www/doc/guide/publish.adp	29 Aug 2022 11:00:26 -0000	1.4.2.3
@@ -97,8 +97,7 @@
 <kbd>content::get_content</kbd> in its Tcl file in order to
 automatically retrieve the current item&#39;s attributes. The
 attributes will be placed in a onerow datasource called
-<kbd>content</kbd> . The template may then call
-<kbd>template::util::array_to_vars content</kbd> in order to
+<kbd>content</kbd> . The user may then loop through the content array in order to
 convert the onerow datasource to local variables.</p>
 <p>In addition to the "x" view, the Content Repository
 creates an "i" view, which simplifies the creation of new
Index: openacs-4/packages/acs-content-repository/www/doc/guide/publish.html
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/www/doc/guide/publish.html,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-content-repository/www/doc/guide/publish.html	5 Apr 2021 19:49:49 -0000	1.5.2.1
+++ openacs-4/packages/acs-content-repository/www/doc/guide/publish.html	29 Aug 2022 11:00:26 -0000	1.5.2.2
@@ -113,8 +113,7 @@
 As a shortcut, the item's template may call <kbd>content::get_content</kbd> 
 in its Tcl file in order to automatically retrieve the current item's 
 attributes. The attributes will be placed in a onerow datasource called 
-<kbd>content</kbd> . The template may then call 
-<kbd>template::util::array_to_vars content</kbd> in order to convert
+<kbd>content</kbd> . The template may then loop thorugh the content array in order to convert
 the onerow datasource to local variables.
 </p>
 <p>
Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -r1.43.2.13 -r1.43.2.14
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	27 Jan 2022 09:23:58 -0000	1.43.2.13
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	29 Aug 2022 11:00:26 -0000	1.43.2.14
@@ -198,10 +198,14 @@
     set inlist [array get values]
 }
 
-ad_proc -public template::util::array_to_vars { arrayname } {
+ad_proc -deprecated template::util::array_to_vars { arrayname } {
     Declare local variables for every key in an array.
 
     @param arrayname   The name of an array in the calling frame.
+
+    DEPRECATED: this is a trivial idiom that can just be inlined.
+
+    @see array
 } {
     upvar $arrayname arr
 
@@ -210,11 +214,15 @@
     }
 }
 
-ad_proc -public template::util::vars_to_array { arrayname args } {
+ad_proc -deprecated template::util::vars_to_array { arrayname args } {
     Place local variables into an array
 
     @param arrayname   The name of an array in the calling frame.
     @param args        Any number of local variables to include in the array
+
+    DEPRECATED: this is a trivial idiom that can just be inlined.
+
+    @see array
 } {
     upvar $arrayname arr