diff --git a/contrib/summerschool/foods/LexFoodsGer.gf b/contrib/summerschool/foods/LexFoodsGer.gf
index 8ea3afc42..a420e22d3 100644
--- a/contrib/summerschool/foods/LexFoodsGer.gf
+++ b/contrib/summerschool/foods/LexFoodsGer.gf
@@ -5,7 +5,7 @@ instance LexFoodsGer of LexFoods =
   oper
     wine_N = mkN "Wein" ;
     pizza_N = mkN "Pizza" "Pizzen" feminine ;
-    cheese_N = mkN "Käse" "Käsen" masculine ;
+    cheese_N = mkN "Käse" "Käse" masculine ;
     fish_N = mkN "Fisch" ;
     fresh_A = mkA "frisch" ;
     warm_A = mkA "warm" "wärmer" "wärmste" ;
diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs
index 4266afa45..2b1d125d9 100644
--- a/src/compiler/GFI.hs
+++ b/src/compiler/GFI.hs
@@ -130,6 +130,10 @@ loop opts gfenv0 = do
              writeFile "_gfdepgraph.dot" (depGraph sgr)
              putStrLn "wrote graph in file _gfdepgraph.dot"
              loopNewCPU gfenv
+          "eh":w:_ -> do
+             cs <- readFile w >>= return . map (interpretCommandLine enc env) . lines
+             loopNewCPU gfenv
+
           "i":args -> do
               gfenv' <- case parseOptions args of
                           Ok (opts',files) -> do