Index: openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl,v
diff -u -r1.10.2.3 -r1.10.2.4
--- openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl	24 Sep 2020 13:34:19 -0000	1.10.2.3
+++ openacs-4/packages/acs-tcl/tcl/ad-functional-procs.tcl	2 Feb 2021 03:36:06 -0000	1.10.2.4
@@ -535,7 +535,14 @@
     concat [list $x] $xs
 }
 
-ad_proc -public reverse {xs} "reverses the list xs" {
+ad_proc -deprecated -public reverse {xs} {
+    reverses the list xs.
+
+    Tcl has a built-in support for reversing lists: "lreverse".
+    Use this instead.    
+
+    @see lreverse
+} {
     fold [bind flip cons] {} $xs
 }