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) ;