--- loncom/interface/lonsearchcat.pm	2014/02/23 22:15:27	1.343
+++ loncom/interface/lonsearchcat.pm	2014/12/14 22:11:03	1.344
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.343 2014/02/23 22:15:27 raeburn Exp $
+# $Id: lonsearchcat.pm,v 1.344 2014/12/14 22:11:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3800,7 +3800,7 @@ Cleans the global %groupsearch_db by rem
 ######################################################################
 sub start_fresh_session {
     delete $groupsearch_db{'mode_catalog'};
-    foreach (keys %groupsearch_db) {
+    foreach (keys(%groupsearch_db)) {
         if ($_ =~ /^pre_/) {
             delete $groupsearch_db{$_};
         }