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.22 -r1.23
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	7 Apr 2018 17:52:19 -0000	1.22
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	29 Jun 2018 09:08:38 -0000	1.23
@@ -790,12 +790,7 @@
         -test_code {
 
         # The tests assume that the danish locale is enabled
-        db_dml enable_all_locales {
-            update ad_locales
-            set enabled_p = 't'
-            where locale = 'da_DK'
-        }
-        util_memoize_flush_regexp {^lang::system::get_locales}
+        lang::system::locale_set_enabled -locale "da_DK" -enabled t
 
         # First locale is perfect language match
         lang::test::assert_browser_locale "da,en-us;q=0.8,de;q=0.5,es;q=0.3" "da_DK"