diff --git a/lib/resource-1.4/bulgarian/LexiconBul.gf b/lib/resource-1.4/bulgarian/LexiconBul.gf
index 34dc10eca..db4ee689e 100644
--- a/lib/resource-1.4/bulgarian/LexiconBul.gf
+++ b/lib/resource-1.4/bulgarian/LexiconBul.gf
@@ -53,10 +53,10 @@ lin
   close_V2 = dirV2 (actionV (mkV187 "затварям") (mkV173 "затворя")) ;
   coat_N = mkN054 "палто" ;
   cold_A = mkA076 "студен" ;
-  come_V = actionV (mkV165 "ида") (table {                                           -- special case "дойди", "дойдете" are archaic
-                                     VImperative Sg => "ела";
-                                     VImperative Pl => "елате";
-                                     vform          => mkV146a "дойда" ! vform}) ;
+  come_V = actionV (mkV186 "идвам") (table {                                           -- special case "дойди", "дойдете" are archaic
+                                       VImperative Sg => "ела";
+                                       VImperative Pl => "елате";
+                                       vform          => mkV146a "дойда" ! vform}) ;
   computer_N = mkN009 "компютър" ;
   country_N = mkN041 "държава" ;
   cousin_N = mkN007a "братовчед" ;
diff --git a/lib/resource-1.4/bulgarian/StructuralBul.gf b/lib/resource-1.4/bulgarian/StructuralBul.gf
index acb461bde..6258de29b 100644
--- a/lib/resource-1.4/bulgarian/StructuralBul.gf
+++ b/lib/resource-1.4/bulgarian/StructuralBul.gf
@@ -54,11 +54,11 @@ concrete StructuralBul of Structural = CatBul **
                     VPres      _ _ => "трябва" ;
                     VAorist    _ _ => "трябваше" ;
                     VImperfect _ _ => "трябвало" ;
-                    VPerfect    aform => regAdjective "трябвал" ! aform ;
-                    VPluPerfect aform => regAdjective "трябвал" ! aform ;
-                    VPassive    aform => regAdjective "трябвал" ! aform ;
-                    VPresPart   aform => regAdjective "трябвал" ! aform ;
-                    VImperative Sg => "трябвай" ;
+                    VPerfect     _ => "трябвало" ;
+                    VPluPerfect  _ => "трябвало" ;
+                    VPassive     _ => "трябвало" ;
+                    VPresPart    _ => "трябвало" ;
+                    VImperative Sg => "трябвай"  ;
                     VImperative Pl => "трябвайте" ;
                     VGerund        => "трябвайки"
                   } ;