Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.141.2.43 -r1.141.2.44
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	14 Nov 2022 02:26:03 -0000	1.141.2.43
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	10 Jan 2023 14:59:10 -0000	1.141.2.44
@@ -1028,7 +1028,7 @@
                     }
                 }
 
-                set tree [::acs::dc list_of_lists -prepare {integer boolean} dbqd..get_subtree $sql]
+                set tree [::acs::dc list_of_lists -prepare integer,boolean dbqd..get_subtree $sql]
 
                 foreach entry $tree {
                     lassign $entry url node_id object_id
Index: openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl,v
diff -u -r1.1.2.20 -r1.1.2.21
--- openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl	4 Mar 2022 09:57:05 -0000	1.1.2.20
+++ openacs-4/packages/proctoring-support/tcl/proctoring-procs.tcl	10 Jan 2023 15:06:48 -0000	1.1.2.21
@@ -303,9 +303,9 @@
     # Create an entry in the database for the file we have just
     # collected, so that we can further enrich it with metadata in
     # later postprocessing phases.
-    set artifact_id [::xo::dc get_value -prepare {
+    set artifact_id [::xo::dc get_value -prepare [join {
         integer integer integer text text text
-    } store {
+    }] store {
         with insert as (
           insert into proctoring_object_artifacts
           (
@@ -351,12 +351,10 @@
     @param object_id proctored object id
     @param user_id user the artifact was collected for.
 } {
-    ::xo::dc dml -prepare {
-        integer text integer
-    } delete {
+    ::xo::dc dml -prepare integer,integer,integer delete {
         delete from proctoring_object_artifacts
         where object_id = :object_id
-          and (coalesce(:user_id, '') = '' or user_id = :user_id)
+          and (:user_id is null or user_id = :user_id)
     }
     ::proctoring::delete \
         -object_id $object_id \
Index: openacs-4/packages/proctoring-support/lib/examination-statement-accept.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/lib/examination-statement-accept.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/proctoring-support/lib/examination-statement-accept.tcl	10 Aug 2020 13:23:42 -0000	1.1.2.1
+++ openacs-4/packages/proctoring-support/lib/examination-statement-accept.tcl	10 Jan 2023 15:08:26 -0000	1.1.2.2
@@ -10,7 +10,7 @@
 
 set user_id [ad_conn user_id]
 
-::xo::dc dml -prepare {integer integer} insert {
+::xo::dc dml -prepare integer,integer insert {
     insert into proctoring_examination_statement_acceptance
     (object_id, user_id)
     values
Index: openacs-4/packages/proctoring-support/tcl/safe-exam-browser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/proctoring-support/tcl/safe-exam-browser-procs.tcl,v
diff -u -r1.1.2.9 -r1.1.2.10
--- openacs-4/packages/proctoring-support/tcl/safe-exam-browser-procs.tcl	7 Sep 2021 11:39:46 -0000	1.1.2.9
+++ openacs-4/packages/proctoring-support/tcl/safe-exam-browser-procs.tcl	10 Jan 2023 15:08:26 -0000	1.1.2.10
@@ -34,10 +34,7 @@
         set seb_file_path ""
     }
 
-    ::xo::dc dml -prepare {
-        integer text text
-        text text
-    } save_conf {
+    ::xo::dc dml -prepare integer,text,text,text,text save_conf {
         insert into proctoring_safe_exam_browser_conf
         (object_id, allowed_keys, seb_file)
         values