diff --git a/src/basque/LexiconEus.gf b/src/basque/LexiconEus.gf
index ac9d35e8..ad819cc7 100644
--- a/src/basque/LexiconEus.gf
+++ b/src/basque/LexiconEus.gf
@@ -387,7 +387,7 @@ lin uncertain_A = mkA "gezur" ; --Apertium
 lin understand_V2 = mkV2 "aditu" ; --| mkV2 "ulertu" ; --Apertium
 lin university_N = mkN "unibertsitate" ; --Apertium
 lin village_N = mkN "herrixka" ; --Apertium
-lin vomit_V = mkV2 "oka" egin_V ; --Apertium
+lin vomit_V = mkV "oka" egin_V ; --Apertium
 
 --------
 -- W - Y
diff --git a/src/bulgarian/ConstructionBul.gf b/src/bulgarian/ConstructionBul.gf
index bcdfe7fd..b49588ea 100644
--- a/src/bulgarian/ConstructionBul.gf
+++ b/src/bulgarian/ConstructionBul.gf
@@ -33,7 +33,7 @@ lin
   is_wrong_VP = mkVP (mkA079 "грешен") ;
   n_units_AP card cn a = mkAP (lin AdA (mkUtt (mkNP <lin Card card : Card> (lin CN cn)))) (lin A a) ;
   n_units_of_NP card cn np =
-    let unit = mkNP <lin Card card : Card> (lin CN cn)
+    let unit : NP = mkNP <lin Card card : Card> (lin CN cn)
     in {
       s  = \\role => unit.s ! role ++ np.s ! R.RObj R.CPrep ;
       gn = unit.gn ;