--- loncom/localize/lonlocal.pm	2003/10/08 17:43:37	1.20
+++ loncom/localize/lonlocal.pm	2003/10/08 18:08:16	1.21
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.20 2003/10/08 17:43:37 albertel Exp $
+# $Id: lonlocal.pm,v 1.21 2003/10/08 18:08:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -214,6 +214,7 @@ sub current_language {
 	my $lang=$lh->maketext('language_code');
 	return ($lang eq 'language_code'?'en':$lang);
     }
+    return 'en';
 }
 
 # ============================================================== What encoding?