--- loncom/localize/lonlocal.pm	2012/10/25 13:47:31	1.64
+++ loncom/localize/lonlocal.pm	2014/12/11 01:47:25	1.65
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Localization routines
 #
-# $Id: lonlocal.pm,v 1.64 2012/10/25 13:47:31 bisitz Exp $
+# $Id: lonlocal.pm,v 1.65 2014/12/11 01:47:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -325,7 +325,7 @@ sub current_locale {
 
 sub texthash {
     my %hash=@_;
-    foreach (keys %hash) {
+    foreach (keys(%hash)) {
 	$hash{$_}=&mt($hash{$_});
     }
     return %hash;