1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF.hs b/src/GF.hs
index 054ff6e89..a4bf22c59 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -63,7 +63,7 @@ main = do
       return ()
 
     _ | opt makeConcrete -> do
-        mkConcretes fs
+        mkConcretes os fs
 
     _ | opt openEditor -> do
         system $ "jgf" +++ unwords xs
@@ -88,7 +88,7 @@ main = do
   if opt fromExamples 
     then do
         es <- liftM (nub . concat) $ mapM (getGFEFiles os) fs
-        mkConcretes es
+        mkConcretes os es
         doGF (removeOption fromExamples os) fs
     else doGF os fs