Index: openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/00-icanuse-procs.tcl,v
diff -u -N -r1.1.2.9 -r1.1.2.10
--- openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl	6 Jun 2020 09:47:48 -0000	1.1.2.9
+++ openacs-4/packages/acs-tcl/tcl/00-icanuse-procs.tcl	22 Jul 2020 12:34:20 -0000	1.1.2.10
@@ -114,11 +114,16 @@
 }
 
 if {[info commands ::ns_dbquotelist] eq ""} {
-    #
-    # Compatibility function for AOLserver or older versions of
-    # NaviServer. Newer versions provide this command as builtin.
-    #
-    ad_proc -public ns_dbquotelist {list {type text}} {
+    ad_proc -public ns_dbquotelist {
+        list
+        {type text}
+    } {
+        Quote a list as a safe SQL list to be used e.g. in "in"
+        statements.
+
+        Compatibility function for AOLserver or older versions of
+        NaviServer. Newer versions provide this command as builtin.
+    } {
         set sql ""
         if { [llength $list] > 0 } {
             # replace single quotes by two single quotes