Index: openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl,v
diff -u -r1.54.2.14 -r1.54.2.15
--- openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	15 Feb 2022 16:50:29 -0000	1.54.2.14
+++ openacs-4/packages/acs-lang/tcl/lang-util-procs.tcl	23 Aug 2022 18:44:54 -0000	1.54.2.15
@@ -66,7 +66,7 @@
 
 ad_proc lang::util::message_tag_regexp {} {
     The regexp expression used by proc get_temporary_tags_indices and elsewhere
-    to extract temporary message catalog tags (<#...#>) from ADP and Tcl files.
+    to extract temporary message catalog tags (&lt;#...#&gt;) from ADP and Tcl files.
     The first sub match of the expression is the whole tag, the second sub match
     is the message key, and the third sub match is the message text in en_US locale.
 
@@ -88,7 +88,7 @@
     Given the contents of an adp file return the indices of the
     start and end chars of embedded message keys on the syntax:
 
-    <#package_key.message_key Some en_US text#>
+    &lt;#package_key.message_key Some en_US text#&gt;
 
     @author Peter marklund (peter@collaboraid.biz)
 } {
@@ -133,14 +133,14 @@
     Modify the given ADP or Tcl files by replacing occurencies of message keys
     with message lookups (i.e. <span>#</span>package_key.message_key# for ADP files
     and [_ "package_key.message_key"] for Tcl files) and create entries in the
-    catalog file for each of these keys. If the short hand form <#_ Some en_US text#>
-    is used then the key will be autogenerated based on the text.
+    catalog file for each of these keys. If the short hand form &lt;#_ Some en_US text#&gt;
+    is used then the key will be auto-generated based on the text.
     Returns the number of replacements done. This procedure only
     reads from and writes to the catalog file specified (the en_US catalog
     file per default) of the package that the files belong to, the database
     is not accessed in any way.
 
-    @param file_list         A list of paths to adp or Tcl files to do replacements in. The
+    @param file_list         A list of paths to .adp or .tcl files to do replacements in. The
                              paths should be relative to $::acs::rootdir. All files must
                              belong to the same package.
 
@@ -440,7 +440,7 @@
 ad_proc -private lang::util::remove_gt_lt {
     s
 } {
-    Removes < > and replaces them with &lt &gt;
+    Removes &lt; &gt; and replaces them with &amp;lt &amp;gt;
 } {
     regsub -all "<" $s {\&lt;} s
     regsub -all ">" $s {\&gt;} s