diff --git a/lib/src/romance/SentenceRomance.gf b/lib/src/romance/SentenceRomance.gf
index 18eeb2fb6..9c9a707e8 100644
--- a/lib/src/romance/SentenceRomance.gf
+++ b/lib/src/romance/SentenceRomance.gf
@@ -23,7 +23,8 @@ incomplete concrete SentenceRomance of Sentence =
 ----              <Acc,True> => insertAgr ag v2 ;
 ----              _ => v2
 ----e              }
-          in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
+          in (mkClausePol np.isNeg (np.s ! Nom).comp False      np.isPol np.a vp).s ;
+-----     in (mkClausePol np.isNeg (np.s ! Nom).comp np.hasClit np.isPol np.a vp).s ;
        c2 = v2.c2
       } ;
 
@@ -40,7 +41,7 @@ incomplete concrete SentenceRomance of Sentence =
     SlashVS np vs slash = 
       {s = \\ag =>
         (mkClausePol np.isNeg
-          (np.s ! Nom).comp np.hasClit np.isPol np.a
+          (np.s ! Nom).comp False np.isPol np.a
           (insertExtrapos (\\b => conjThat ++ slash.s ! ag ! (vs.m ! b))
             (predV vs))
         ).s ;