--- loncom/localize/lonlocal.pm	2003/09/22 18:16:43	1.10
+++ loncom/localize/lonlocal.pm	2003/09/22 22:53:21	1.11
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.10 2003/09/22 18:16:43 bowersj2 Exp $
+# $Id: lonlocal.pm,v 1.11 2003/09/22 22:53:21 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -205,7 +205,8 @@ sub mt (@) {
 # ============================================================== What language?
 
 sub current_language {
-    return $lh->language_tag();
+    my $lang=$lh->maketext('language_code');
+    return ($lang eq 'language_code'?'en':$lang);
 }
 
 # ============================================================== What encoding?