diff --git a/contrib/summerschool/foods/FoodsGer.gf b/contrib/summerschool/foods/FoodsGer.gf
index 934cefb9c..d7ba99c11 100644
--- a/contrib/summerschool/foods/FoodsGer.gf
+++ b/contrib/summerschool/foods/FoodsGer.gf
@@ -1,4 +1,4 @@
---# -path=.:present
+FL--# -path=.:present
 
 -- (c) 2009 Aarne Ranta under LGPL
 
diff --git a/src/compiler/GFI.hs b/src/compiler/GFI.hs
index d53be2195..84bfc43c5 100644
--- a/src/compiler/GFI.hs
+++ b/src/compiler/GFI.hs
@@ -94,6 +94,12 @@ loop opts gfenv0 = do
   -- special commands, requiring source grammar in env
 
   case pwords of
+{-
+    "eh":w:_ -> do
+             cs <- readFile w >>= return . map words . lines
+             gfenv' <- foldM (flip (process False benv)) gfenv cs
+             loopNewCPU gfenv'
+-}
 
       "q":_  -> ifv (putStrLn "See you.") >> return gfenv