--- loncom/interface/lonpopulate.pm	2014/08/27 01:29:27	1.81
+++ loncom/interface/lonpopulate.pm	2014/12/12 14:30:47	1.82
@@ -1,5 +1,5 @@
 # automated enrollment configuration handler
-# $Id: lonpopulate.pm,v 1.81 2014/08/27 01:29:27 raeburn Exp $
+# $Id: lonpopulate.pm,v 1.82 2014/12/12 14:30:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -290,7 +290,7 @@ sub print_main_frame {
 # Get course settings
   my %enrollvar;
   my %settings = &Apache::lonnet::dump('environment',$dom,$crs);
-  foreach my $item (keys %settings) {
+  foreach my $item (keys(%settings)) {
       if ($item =~ m/^internal\.(.+)$/) {
           $enrollvar{$1} = $settings{$item};
       } elsif ($item =~ /^default_enrollment_(start|end)_date$/) {