diff --git a/src/polish/PhrasePol.gf b/src/polish/PhrasePol.gf
index a39e84ae..4f6e0d0b 100644
--- a/src/polish/PhrasePol.gf
+++ b/src/polish/PhrasePol.gf
@@ -18,7 +18,7 @@ concrete PhrasePol of Phrase = CatPol ** open Prelude, ResPol, VerbMorphoPol in
    UttNP np = {s = np.nom};
    UttVP vp = { -- I assume the positive polarization to avoid variants
         s = vp.prefix ++
-            (infinitive_form vp.verb vp.imienne Pos) ++ 
+            infinitive_form vp.verb vp.imienne Pos MascPersSg ++ 
             vp.sufix !Pos !MascAniSg 
    };
    UttAdv adv = adv ;
diff --git a/src/polish/SentencePol.gf b/src/polish/SentencePol.gf
index d4397b38..5a231376 100644
--- a/src/polish/SentencePol.gf
+++ b/src/polish/SentencePol.gf
@@ -88,7 +88,7 @@ lin
 --     EmbedVP   : VP -> SC ;               -- to go
     EmbedVP vp = {
         s = vp.prefix ++
-            (infinitive_form vp.verb vp.imienne Pos) ++ 
+            (infinitive_form vp.verb vp.imienne Pos MascPersSg) ++ 
             vp.sufix !Pos !MascPersSg 
     };
 
diff --git a/src/polish/VerbMorphoPol.gf b/src/polish/VerbMorphoPol.gf
index a0c36c2f..5a84526f 100644
--- a/src/polish/VerbMorphoPol.gf
+++ b/src/polish/VerbMorphoPol.gf
@@ -493,14 +493,14 @@ resource VerbMorphoPol = ResPol ** open Prelude, CatPol, (Predef=Predef), (Adj=A
                 }
         };
         
-    infinitive_form : Verb -> Bool -> Polarity ->  Str;
-    infinitive_form verb imienne pol = 
+    infinitive_form : Verb -> Bool -> Polarity -> GenNum -> Str;
+    infinitive_form verb imienne pol gn = 
         case imienne of {
             True =>
                 let byc = case verb.asp of { Perfective   => "zostać"; _ => "być" }; in
                 case pol of {
-                    Pos => byc ++ (mkAtable (table2record verb.pparti))! AF MascPersSg Nom;
-                    Neg => "nie" ++ byc ++ (mkAtable (table2record verb.pparti))! AF MascPersSg Nom
+                    Pos => byc ++ (mkAtable (table2record verb.pparti))! AF gn Nom;
+                    Neg => "nie" ++ byc ++ (mkAtable (table2record verb.pparti))! AF gn Nom
                     };
             False => 
                 let sie = verb.refl; in
@@ -509,8 +509,7 @@ resource VerbMorphoPol = ResPol ** open Prelude, CatPol, (Predef=Predef), (Adj=A
                     Neg => "nie" ++ verb.si ! VInfM ++ sie
                 }
         };
-  
-        
+
     badz_op : Number * Person => Str = table {
         <Sg, P1> => ["niech będę"];
         <Sg, P2> => ["bądź"];