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.131 -r1.189.2.132
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	11 Aug 2022 13:49:45 -0000	1.189.2.131
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	23 Aug 2022 18:44:55 -0000	1.189.2.132
@@ -3776,13 +3776,12 @@
 
 ad_proc util::trim_leading_zeros {
     string
-} {
-    Returns a string w/ leading zeros trimmed.
-    Used to get around Tcl interpreter problems w/ thinking leading
-    zeros are octal.
+} {    
+    Returns a string with leading zeros trimmed.  Used to get around
+    Tcl interpreter problems without thinking leading zeros are octal.
 
-    If string is real and mod(number)<1, then we have pulled off
-    the leading zero; i.e. 0.231 -> .231 -- this is still fine
+    <p>If string is real and mod(number)&lt;1, then we have pulled off
+    the leading zero; i.e. 0.231 -&gt; .231 - this is still fine
     for Tcl though...
 } {
     if {$string ne ""} {