diff --git a/examples/tutorial/resource-foods/LexFoodsFre.gf b/examples/tutorial/resource-foods/LexFoodsFre.gf
index b83a8ddf9..5e7f72442 100644
--- a/examples/tutorial/resource-foods/LexFoodsFre.gf
+++ b/examples/tutorial/resource-foods/LexFoodsFre.gf
@@ -6,7 +6,7 @@ instance LexFoodsFre of LexFoods = open SyntaxFre,ParadigmsFre in {
     pizza_N = mkN "pizza" feminine ;
     cheese_N = mkN "fromage" masculine ;
     fish_N = mkN "poisson" ;
-    fresh_A = mkA "frais" "fraīche" ;
+    fresh_A = mkA "frais" "fraīche" "frais" "fraīches";
     warm_A = mkA "chaud" ;
     italian_A = mkA "italien" ;
     expensive_A = mkA "cher" ;
diff --git a/lib/resource-1.0/french/MorphoFre.gf b/lib/resource-1.0/french/MorphoFre.gf
index f10acb4e5..a27c1ebf4 100644
--- a/lib/resource-1.0/french/MorphoFre.gf
+++ b/lib/resource-1.0/french/MorphoFre.gf
@@ -116,7 +116,7 @@ oper
 
   adjHeureux : Str -> Adj = \heureux ->
     let {heureu = Predef.tk 1 heureux} in 
-    mkAdj heureux (heureu+"s") (heureu+"se") (heureu+"sement") ;
+    mkAdj heureux heureux (heureu+"se") (heureu+"sement") ;
 
   adjBanal : Str -> Adj = \banal ->
     let {bana = Predef.tk 1 banal} in