diff --git a/lib/src/experimental/PredInstanceChi.gf b/lib/src/experimental/PredInstanceChi.gf
index 130ddbe40..f9e575d91 100644
--- a/lib/src/experimental/PredInstanceChi.gf
+++ b/lib/src/experimental/PredInstanceChi.gf
@@ -143,9 +143,9 @@ oper
           vneg   = case p of {Pos => [] ; Neg => v.s.neg} ;
           pass   = case o of {CAct => [] ; CPass => passive_s}
        in case <t,a> of {
-          <X.Past,_>  => <pass,  bu_neg,  sta ++ v.s.s ++ v.s.pp> ;
-          <_,X.Anter> => <pass,  bu_neg,  sta ++ v.s.s ++ v.s.pp> ;
-          _          => <pass,  vneg,    sta ++ v.s.s> 
+          <X.Past,_>  => <sta ++ pass,  bu_neg,  v.s.s ++ v.s.pp> ;
+          <_,X.Anter> => <sta ++ pass,  bu_neg,  v.s.s ++ v.s.pp> ;
+          _           => <sta ++ pass,  vneg,    v.s.s> 
           } ;   ---- other aspects
 
 
diff --git a/lib/src/romance/NounRomance.gf b/lib/src/romance/NounRomance.gf
index 119adadf6..ff30233d0 100644
--- a/lib/src/romance/NounRomance.gf
+++ b/lib/src/romance/NounRomance.gf
@@ -115,7 +115,7 @@ incomplete concrete NounRomance of Noun =
         g = cn.g ;
         n = Sg
       in heavyNP {
-        s = \\c => partitive g c ++ cn.s ! n ;
+        s = table {Nom => artDef g n Nom ++ cn.s ! n ; c => partitive g c ++ cn.s ! n} ; -- le vin est bon ; je bois du vin
         a = agrP3 g n ;
         hasClit = False ;
         isNeg = False