Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.115 -r1.116
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	21 Mar 2018 19:52:50 -0000	1.115
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	24 Mar 2018 16:20:59 -0000	1.116
@@ -2717,6 +2717,14 @@
     }
     return $timestamp
   }
+
+  ad_proc list_to_values {list {type text}} {
+    set result {}
+    foreach e $list {
+      lappend result "([ns_dbquotevalue $e $type])"
+    }
+    return "(values [join $result ,])"
+  }  
 }
 
 ::xo::library source_dependent