diff --git a/src/bulgarian/ExtendBul.gf b/src/bulgarian/ExtendBul.gf
index 575a492f..a4c31c89 100644
--- a/src/bulgarian/ExtendBul.gf
+++ b/src/bulgarian/ExtendBul.gf
@@ -54,6 +54,17 @@ lin
                           "от" ++ np.s ! RObj Acc
     in {s = ap; adv = ap ! ASg Neut Indef ! P3; isPre = False} ;
 
+  GerundNP vp = {
+    s = \\_ => daComplex Simul Pos vp ! Imperf ! {gn=GSg Neut; p=P1};
+    a = {gn=GSg Neut; p=P3};
+    p = Pos
+  } ;
+
+  GerundAdv vp =
+    {s = vp.ad.s ++
+         vp.s ! Imperf ! VGerund ++
+         vp.compl ! {gn=GSg Neut; p=P3}} ;
+
   iFem_Pron      = mkPron "аз" "мен" "ме" "ми" "мой" "моя" "моят" "моя" "моята" "мое" "моето" "мои" "моите" (GSg Fem)  P1 ;
   youFem_Pron    = youSg_Pron ;
   weFem_Pron     = we_Pron ;
diff --git a/src/swedish/ExtendSwe.gf b/src/swedish/ExtendSwe.gf
index 9182d4e4..9795c293 100644
--- a/src/swedish/ExtendSwe.gf
+++ b/src/swedish/ExtendSwe.gf
@@ -176,6 +176,15 @@ concrete ExtendSwe of Extend = CatSwe **
       s = \\af => partVPPlusPost vp (PartPret af Nom) (aformpos2agr af) Pos ++ "av" ++ np.s ! accusative ;
       isPre = False
     } ;
+    
+    GerundNP vp = {  -- infinitive: att dricka öl, att vara glad
+      s = \\_ => "att" ++ infVP vp {g = Utr ; n = Sg ; p = P3} ; 
+      a = {g = Neutr ; n = Sg ; p = P3} ;
+      isPron = False
+    } ;
 
+    GerundAdv vp = {
+      s = partVPPlusPost vp (PartPres Sg Indef (Nom|Gen)) {g = Utr ; n = Sg ; p = P3} Pos -- sovande(s) i sängen
+    } ;
 }