diff --git a/lib/src/translator/ExtensionsBul.gf b/lib/src/translator/ExtensionsBul.gf
index 7ae22bb9c..6428b46f9 100644
--- a/lib/src/translator/ExtensionsBul.gf
+++ b/lib/src/translator/ExtensionsBul.gf
@@ -42,6 +42,11 @@ lin
     g = cn.g
   } ;
 
+  CompoundAP n a =
+    let ap : AForm => Str
+           = \\aform => n.rel ! (ASg Neut Indef) ++ a.s ! aform
+    in {s = ap; adv = ap ! (ASg Neut Indef); isPre = True} ;
+
   GerundCN vp = {
     s   = \\nform => vp.ad.s ++
                      vp.s ! Imperf ! VNoun nform ++
diff --git a/lib/src/translator/TranslateBul.gf b/lib/src/translator/TranslateBul.gf
index bf0377134..9dface536 100644
--- a/lib/src/translator/TranslateBul.gf
+++ b/lib/src/translator/TranslateBul.gf
@@ -24,7 +24,7 @@ concrete TranslateBul of Translate =
   DocumentationBul,
 
   ChunkBul,
-  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, 
+  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, CompoundAP,
                  PresPartAP, PastPartAP, PassVPSlash, PassAgentVPSlash],
 
   DictionaryBul **