Index: openacs-4/packages/acs-tcl/acs-tcl.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/acs-tcl.info,v
diff -u -r1.95.2.8 -r1.95.2.9
--- openacs-4/packages/acs-tcl/acs-tcl.info	28 Nov 2019 11:06:31 -0000	1.95.2.8
+++ openacs-4/packages/acs-tcl/acs-tcl.info	3 May 2020 16:32:10 -0000	1.95.2.9
@@ -9,7 +9,7 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-    <version name="5.10.0d31" url="http://openacs.org/repository/download/apm/acs-tcl-5.10.0d31.apm">
+    <version name="5.10.0d32" url="http://openacs.org/repository/download/apm/acs-tcl-5.10.0d32.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>The Kernel Tcl API library.</summary>
         <release-date>2017-08-06</release-date>
@@ -18,7 +18,7 @@
         <license>GPL version 2</license>
         <maturity>3</maturity>
 
-        <provides url="acs-tcl" version="5.10.0d31"/>
+        <provides url="acs-tcl" version="5.10.0d32"/>
         <requires url="acs-bootstrap-installer" version="5.10.0d6"/>
         <requires url="acs-kernel" version="5.10.0d0"/>
 
Index: openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl,v
diff -u -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	22 Nov 2019 16:21:43 -0000	1.1.2.6
+++ openacs-4/packages/acs-tcl/tcl/01-database-procs.tcl	3 May 2020 16:32:10 -0000	1.1.2.7
@@ -3793,6 +3793,27 @@
     }
 }
 
+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}} {
+        set sql ""
+        if { [llength $list] > 0 } {
+            # replace single quotes by two single quotes
+            regsub -all -- ' "$list" '' list
+            append sql \
+                "'" \
+                [join $list "', '"] \
+                "'"
+        }
+        return $sql
+    }
+} else {
+    ns_log notice "====================================================="
+}
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4