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 -N -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	20 Aug 2020 09:29:48 -0000	1.1.2.6
+++ openacs-4/packages/acs-tcl/tcl/test/db-proc-test-procs.tcl	1 Sep 2020 14:35:02 -0000	1.1.2.7
@@ -51,7 +51,7 @@
             # "db_foreach" loop, performing as well SQL queries
             # and try to get value inserted above after the loop.
             #
-            set sql "SELECT privilege FROM acs_privileges limit 2"
+            set sql "SELECT privilege FROM acs_privileges fetch first 2 rows only"
             db_foreach noxql $sql {
                 set temp1 [db_string noxql "SELECT 1 FROM dual"]
                 aa_log "... db_foreach got '$temp1'"
@@ -64,7 +64,7 @@
             # "db_multirow" loop, performing as well SQL queries
             # and try to get value inserted above after the loop.
             #
-            set sql "SELECT privilege FROM acs_privileges limit 1"
+            set sql "SELECT max(privilege) FROM acs_privileges"
             db_multirow -local mrow noxql $sql {
             # Code executed for each row. Set extended columns, etc.
                 set temp1 [db_string noxql "SELECT 1 FROM dual"]
@@ -77,7 +77,7 @@
             # "db_multirow" loop, performing as well SQL queries
             # and try to get value inserted above after the loop.
             #
-            set sql "SELECT privilege FROM acs_privileges limit 2"
+            set sql "SELECT privilege FROM acs_privileges fetch first 2 rows only"
             db_multirow -local mrow noxql $sql {
             # Code executed for each row. Set extended columns, etc.
                 set temp1 [db_string noxql "SELECT 1 FROM dual"]