diff --git a/resource-1.4/french/MorphoFre.gf b/resource-1.4/french/MorphoFre.gf
index 5464c8875..a27c1ebf4 100644
--- a/resource-1.4/french/MorphoFre.gf
+++ b/resource-1.4/french/MorphoFre.gf
@@ -11,7 +11,7 @@
 resource MorphoFre = CommonRomance, ResFre ** 
   open PhonoFre, Prelude, Predef in {
 
-flags optimize=noexpand ;
+flags optimize=all ;
 
 --2 Front vowels
 --
diff --git a/resource-1.4/romance/CommonRomance.gf b/resource-1.4/romance/CommonRomance.gf
index fec810bed..528ea22d8 100644
--- a/resource-1.4/romance/CommonRomance.gf
+++ b/resource-1.4/romance/CommonRomance.gf
@@ -58,8 +58,8 @@ oper
     } ;
   
   conjGender : Gender -> Gender -> Gender = \m,n -> 
-    case <m,n> of {
-      <Fem,Fem> => Fem ;
+    case m of {
+      Fem => n ;
       _ => Masc 
       } ;