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 -r1.28 -r1.28.2.1
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	9 Sep 2018 18:51:18 -0000	1.28
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	14 Mar 2019 14:26:59 -0000	1.28.2.1
@@ -839,24 +839,18 @@
 
 
 aa_register_case \
-        -cats db \
-        strange_oracle_problem {
-    Strange Oracle problem when selecting by language
+    -cats db \
+    -procs {
+        lang::util::default_locale_from_lang
+    } default_locale_from_lang {
+        Check that the retrieval of the deafault locale for a language
+        is working
+    } {
+        set default_locale [lang::util::default_locale_from_lang en]
+        aa_true "Retrieve the default english locale works fine" {$default_locale eq "en_US"}
+    }
 
-} {
-    set language "da "
-    set locale da_DK
 
-    set db_string [db_string select_default_locale {
-        select locale
-        from   ad_locales
-        where  language = :language
-    } -default "WRONG"]
-
-    aa_false "Does not return 'WRONG'" [string equal $db_string "WRONG"]
-}
-
-
 aa_register_case \
         -procs {
             lang::conn::timezone