Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v
diff -u -N -r1.28.2.2 -r1.28.2.3
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	25 Mar 2019 12:08:45 -0000	1.28.2.2
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	25 Mar 2019 14:06:21 -0000	1.28.2.3
@@ -1124,10 +1124,10 @@
     This test calls the checks to ensure a message is correct on every message in the system
 } {
     aa_run_with_teardown -rollback -test_code {
-        foreach tuple [db_list_of_lists get_message_keys {
-            select message_key, package_key, locale, message from lang_messages
-        }] {
-            lassign $tuple message_key package_key locale message
+        db_foreach get_message_keys {
+            select message_key, package_key, locale, message
+            from lang_messages where not deleted_p
+        } {
             set error_p [catch {lang::message::check $locale $package_key $message_key $message} errmsg]
             set errmsg [expr {$error_p ? ": $errmsg" : ""}]
             aa_false "Message $message_key in package $package_key for locale $locale correct$errmsg" $error_p