diff --git a/lib/resource-1.0/french/DiffFre.gf b/lib/resource-1.0/french/DiffFre.gf
index e7c622162..c6bf7d8f5 100644
--- a/lib/resource-1.0/french/DiffFre.gf
+++ b/lib/resource-1.0/french/DiffFre.gf
@@ -76,14 +76,13 @@ instance DiffFre of DiffRomance = open CommonRomance, PhonoFre, Prelude in {
           CPron a => argPron a.g a.n a.p Acc ;
           _ => []
           } ;
-        pdat = case dat of {
-          CPron a => argPron a.g a.n a.p dative ;
-          _ => []
-          } ;
        in
        case dat of {
-          CPron {p = P3} => <pacc ++ pdat,[]> ;
-          _ => <pdat ++ pacc, []>
+          CPron a => let pdat = argPron a.g a.n a.p dative in case a.p of {
+            P3 => <pacc ++ pdat,[]> ;
+            _  => <pdat ++ pacc,[]>
+            } ;
+          _ => <pacc, []>
           } ;
 
 
diff --git a/lib/resource-1.0/romance/RelativeRomance.gf b/lib/resource-1.0/romance/RelativeRomance.gf
index 91ebb4099..e7405bf9a 100644
--- a/lib/resource-1.0/romance/RelativeRomance.gf
+++ b/lib/resource-1.0/romance/RelativeRomance.gf
@@ -13,11 +13,11 @@ incomplete concrete RelativeRomance of Relative =
       s = \\ag =>
         (mkClause
           (rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom)
-          (
-        case rp.a of {
-          RNoAg => ag ;
-          RAg a => a ** {p = P3}
-          }) vp).s
+          (case rp.a of {
+             RNoAg => ag ;
+             RAg a => a ** {p = P3}
+             }) 
+          vp).s
       } ;
 
     RelSlash rp slash = {