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.3 -r1.28.2.4
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	25 Mar 2019 14:06:21 -0000	1.28.2.3
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	25 Mar 2019 14:16:36 -0000	1.28.2.4
@@ -1126,7 +1126,9 @@
     aa_run_with_teardown -rollback -test_code {
         db_foreach get_message_keys {
             select message_key, package_key, locale, message
-            from lang_messages where not deleted_p
+            from lang_messages
+            where not deleted_p
+              and locale in (select locale from ad_locales where enabled_p)
         } {
             set error_p [catch {lang::message::check $locale $package_key $message_key $message} errmsg]
             set errmsg [expr {$error_p ? ": $errmsg" : ""}]