Index: openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl,v
diff -u -r1.1.2.18 -r1.1.2.19
--- openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl	8 Dec 2020 19:38:32 -0000	1.1.2.18
+++ openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl	9 Dec 2020 14:36:23 -0000	1.1.2.19
@@ -147,20 +147,22 @@
 
 if {[namespace which ::ns_trim] eq ""} {
 
-    # ns_trim -- delimiter line trim command
-    #
-    #   Strip from the begin of every line characters whitespace followed
-    #   by the specified delimiter character. Example:
-    #
-    #     puts [ns_trim -delimiter | {
-    #         | Hello
-    #         | World!
-    #     }]
-    #
-    #   This function could/should be coded in C for speed.
-    #
-    
-    ad_proc ns_trim {{-delimiter ""} text} {
+    ad_proc ns_trim {
+        {-delimiter ""}
+        text
+    } {
+        Delimiter line trim command
+
+        Strip from the begin of every line characters whitespace followed
+        by the specified delimiter character. Example:
+
+        puts [ns_trim -delimiter | {
+            | Hello
+            | World!
+        }]
+
+        This function could/should be coded in C for speed.
+    } {
         if {$delimiter ne ""} {
             set re "^\\s*\[$delimiter\](.*)$"
         } else {