From e5c523e4806acf85a69fb1871e03c2904b898c77 Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Tue, 10 Jul 2018 11:22:54 +0200
Subject: [PATCH] double negation in ComplVV

---
 src/bulgarian/VerbBul.gf | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/bulgarian/VerbBul.gf b/src/bulgarian/VerbBul.gf
index cb2450895..49b748764 100644
--- a/src/bulgarian/VerbBul.gf
+++ b/src/bulgarian/VerbBul.gf
@@ -34,7 +34,7 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
 
     ComplVV vv vp =
       insertObj (case vv.typ of {
-                   VVInf asp => daComplex Simul Pos vp ! asp;
+                   VVInf asp => daComplex Simul vp.p vp ! asp;
                    VVGerund  => gerund vp ! Imperf
                  }) vp.p
                 (predV vv) ;