Index: openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl,v
diff -u -r1.14 -r1.14.6.1
--- openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl	26 Feb 2005 16:00:10 -0000	1.14
+++ openacs-4/packages/acs-lang/www/admin/edit-localized-message.tcl	14 Dec 2006 13:55:09 -0000	1.14.6.1
@@ -17,6 +17,16 @@
     {return_url {}}
 }
 
+if { [string length $locale] == 2 } {
+    # Only language provided, let's get the default locale for this language
+    set default_locale [lang::util::default_locale_from_lang $locale]
+    if { [empty_string_p $default_locale] } {
+        error "Could not look up locale for language $locale"
+    } else {
+        set locale $default_locale
+    }
+}
+
 # We rename to avoid conflict in queries
 set current_locale $locale
 set default_locale en_US