--- loncom/localize/lonlocal.pm	2003/10/04 20:49:40	1.19
+++ 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.19 2003/10/04 20:49:40 www Exp $
+# $Id: lonlocal.pm,v 1.21 2003/10/08 18:08:16 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -210,8 +210,11 @@ sub mt (@) {
 # ============================================================== What language?
 
 sub current_language {
-    my $lang=$lh->maketext('language_code');
-    return ($lang eq 'language_code'?'en':$lang);
+    if ($lh) {
+	my $lang=$lh->maketext('language_code');
+	return ($lang eq 'language_code'?'en':$lang);
+    }
+    return 'en';
 }
 
 # ============================================================== What encoding?