Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	15 Aug 2003 15:42:58 -0000	1.22
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	21 Aug 2003 08:45:26 -0000	1.23
@@ -330,7 +330,12 @@
         }
     } elseif { [string length $locale] == 2 } {
         # Only language provided, let's get the default locale for this language
-        set locale [lang::util::default_locale_from_lang $locale]
+        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
+        }
     } 
 
     if { [lang::util::translator_mode_p] } {