Index: openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/Attic/db-proc-test-procs.tcl,v
diff -u -r1.1.2.22 -r1.1.2.23
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	21 Feb 2022 19:42:22 -0000	1.1.2.22
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	20 Jul 2022 11:46:48 -0000	1.1.2.23
@@ -635,10 +635,14 @@
         @author Nathan Coulter
         @creation-date 2020-08-20
 } {
-    set val1 \x00
-    set queries {
-        variable {sql {select :val1} status 1}
-    }
+    sset queries {}
+    #
+    # The NUL character is not allowed in plain data for PostgreSQL.
+    #
+    #set val1 \x00
+    #set queries {
+    #    variable {sql {select :val1} status 1}
+    #}
     switch [db_type] {
        postgresql {
            lappend queries literal {sql {select '\x00'::bytea} status 0}