Index: openacs-4/packages/acs-lang/tcl/locale-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-lang/tcl/locale-procs.tcl	25 Aug 2003 10:24:02 -0000	1.16
+++ openacs-4/packages/acs-lang/tcl/locale-procs.tcl	28 Aug 2003 08:57:21 -0000	1.17
@@ -469,7 +469,7 @@
                 # we have a different locale with matching language, 
                 # i.e. a tentative match
                 if { ![info exists tentative_match] } {
-                    set default_locale [lang::util::default_locale_for_lang $language]
+                    set default_locale [lang::util::default_locale_from_lang $language]
                     if { ![empty_string_p $default_locale] } {
                         set tentative_match $default_locale
                     }                    
@@ -481,7 +481,7 @@
             }
         } else {
             # We have just a language, e.g. en
-            set default_locale [lang::util::default_locale_for_lang $locale]
+            set default_locale [lang::util::default_locale_from_lang $locale]
             if { ![empty_string_p $default_locale] } {
                 set perfect_match $default_locale
                 break