Index: openacs-4/packages/assessment/assessment.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/assessment.info,v
diff -u -r1.57.2.5 -r1.57.2.6
--- openacs-4/packages/assessment/assessment.info	5 Mar 2020 15:33:58 -0000	1.57.2.5
+++ openacs-4/packages/assessment/assessment.info	3 May 2020 18:04:19 -0000	1.57.2.6
@@ -7,7 +7,7 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
 
-    <version name="2.10.0d6" url="http://openacs.org/repository/download/apm/assessment-2.10.0d6.apm">
+    <version name="2.10.0d7" url="http://openacs.org/repository/download/apm/assessment-2.10.0d7.apm">
         <owner url="mailto:eperez@it.uc3m.es">Eduardo Perez Ureta</owner>
         <summary>Assessment package that will replace the surveys
     quizz, complex survey, poll and other data collection packages
@@ -18,9 +18,9 @@
         <maturity>2</maturity>
         <package_instance_name>#assessment.Assessment#</package_instance_name>
 
-        <provides url="assessment" version="2.10.0d6"/>
+        <provides url="assessment" version="2.10.0d7"/>
         <requires url="acs-content-repository" version="5.9.1"/>
-        <requires url="acs-tcl" version="5.9.1"/>
+        <requires url="acs-tcl" version="5.10.0d32"/>
         <requires url="acs-kernel" version="5.9.1"/>
         <requires url="acs-templating" version="5.9.1"/>
         <requires url="categories" version="1.1.3"/>
Index: openacs-4/packages/assessment/lib/session-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/lib/session-items.tcl,v
diff -u -r1.25 -r1.25.2.1
--- openacs-4/packages/assessment/lib/session-items.tcl	16 Jul 2018 14:28:57 -0000	1.25
+++ openacs-4/packages/assessment/lib/session-items.tcl	3 May 2020 18:04:19 -0000	1.25.2.1
@@ -48,7 +48,7 @@
 }
 
 if {$item_id_list ne ""} {
-    set items_clause "and i.as_item_id in ([join $item_id_list ,])"
+    set items_clause "and i.as_item_id in ([ns_dbquotelist $item_id_list])"
 } else {
     set items_clause ""
 }
Index: openacs-4/packages/assessment/tcl/callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/callback-procs.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/assessment/tcl/callback-procs.tcl	7 Aug 2017 23:48:03 -0000	1.5
+++ openacs-4/packages/assessment/tcl/callback-procs.tcl	3 May 2020 18:04:19 -0000	1.5.2.1
@@ -107,7 +107,7 @@
 	set node_id [dotlrn_community::get_community_node_id $community_id]
 	set list_of_package_ids [site_node::get_children -node_id $node_id -element package_id -package_key assessment]
 	if {[llength $list_of_package_ids]} {
-	    set package_id_clause "and ass.package_id in ([join $list_of_package_ids ", "])"
+	    set package_id_clause "and ass.package_id in ([ns_dbquotelist $list_of_package_ids])"
 	} else {
 	    return
 	}
@@ -146,7 +146,7 @@
     }
     set folder_id_clause ""
     if {[llength $list_of_folder_ids]} {
-	set folder_id_clause "and ci.parent_id in ([join $list_of_folder_ids ", "])"
+	set folder_id_clause "and ci.parent_id in ([ns_dbquotelist $list_of_folder_ids])"
     } else {
 	return
     }
Index: openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl,v
diff -u -r1.12 -r1.12.2.1
--- openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl	29 Jun 2018 17:27:18 -0000	1.12
+++ openacs-4/packages/assessment/www/asm-admin/catalog-browse.tcl	3 May 2020 18:04:20 -0000	1.12.2.1
@@ -83,7 +83,7 @@
 
 set category_ids_length [llength $category_ids]
 if {$category_ids_length > 0} {
-    set category_id_sql [join $category_ids ,]
+    set category_id_sql [ns_dbquotelist $category_ids]
     if {$join eq "and"} {
 	# combining categories with and
 	if {$subtree_p == "t"} {
Index: openacs-4/packages/file-storage/file-storage.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/file-storage.info,v
diff -u -r1.60.2.5 -r1.60.2.6
--- openacs-4/packages/file-storage/file-storage.info	25 Jun 2019 13:47:20 -0000	1.60.2.5
+++ openacs-4/packages/file-storage/file-storage.info	3 May 2020 18:13:02 -0000	1.60.2.6
@@ -7,7 +7,7 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
 
-    <version name="5.10.0d6" url="http://openacs.org/repository/download/apm/file-storage-5.10.0d6.apm">
+    <version name="5.10.0d7" url="http://openacs.org/repository/download/apm/file-storage-5.10.0d7.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>Collaborative document storage</summary>
         <release-date>2017-08-06</release-date>
@@ -17,9 +17,9 @@
         <maturity>2</maturity>
         <package_instance_name>#file-storage.file-storage#</package_instance_name>
 
-        <provides url="file-storage" version="5.10.0d6"/>
+        <provides url="file-storage" version="5.10.0d7"/>
         <requires url="acs-kernel" version="5.9.1"/>
-        <requires url="acs-tcl" version="5.9.1"/>
+        <requires url="acs-tcl" version="5.10.0d32"/>
         <requires url="acs-content-repository" version="5.9.1"/>
         <requires url="acs-automated-testing" version="5.10.0d13"/>
 
Index: openacs-4/packages/file-storage/lib/folder-links.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/lib/folder-links.tcl,v
diff -u -r1.5.2.5 -r1.5.2.6
--- openacs-4/packages/file-storage/lib/folder-links.tcl	1 Jul 2019 14:47:07 -0000	1.5.2.5
+++ openacs-4/packages/file-storage/lib/folder-links.tcl	3 May 2020 18:13:02 -0000	1.5.2.6
@@ -47,7 +47,7 @@
 }
 
 if {[llength $object_list] > 0} {
-    set object_list_where " and fs_objects.object_id in ([join $object_list ", "])"
+    set object_list_where " and fs_objects.object_id in ([ns_dbquotelist $object_list])"
 }
 
 db_multirow -extend {