diff --git a/lib/src/bulgarian/StructuralBul.gf b/lib/src/bulgarian/StructuralBul.gf
index e09d12935..2b95fa12a 100644
--- a/lib/src/bulgarian/StructuralBul.gf
+++ b/lib/src/bulgarian/StructuralBul.gf
@@ -10,6 +10,7 @@ concrete StructuralBul of Structural = CatBul **
   after_Prep = mkPrep "след" Acc ;
   all_Predet = {s = table GenNum ["всичкия";"всичката";"всичкото";"всичките"]} ;
   almost_AdA, almost_AdN = ss "почти" ;
+  at_least_AdN, at_most_AdN =  ss "почти" ; ---- AR
   although_Subj = ss ["въпреки че"] ;
   always_AdV = ss "винаги" ;
   and_Conj = {s=[]; conj=0; distr=False; n = Pl} ;
diff --git a/lib/src/bulgarian/VerbBul.gf b/lib/src/bulgarian/VerbBul.gf
index af4958d21..1c210f2e4 100644
--- a/lib/src/bulgarian/VerbBul.gf
+++ b/lib/src/bulgarian/VerbBul.gf
@@ -72,6 +72,8 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
 
     UseComp comp = insertObj comp.s (predV verbBe) ;
 
+    UseCopula = predV verbBe ;
+
     AdvVP vp adv = insertObj (\\_ => adv.s) vp ;
     AdvVPSlash vp adv = insertSlashObj1 (\\_ => adv.s) vp ;
 
@@ -96,4 +98,6 @@ concrete VerbBul of Verb = CatBul ** open Prelude, ResBul, ParadigmsBul in {
     CompAdv a = {s = \\_ => a.s} ;
     CompCN cn = {s = \\agr => cn.s ! (NF (numGenNum agr.gn) Indef)} ;
 
+    VPSlashPrep vp prep = vp ** {c2 = prep ; compl1,compl2 = \\_ => []} ; ---- AR
+
 }