diff --git a/phrasebook/SentencesBul.gf b/phrasebook/SentencesBul.gf
index 12638fba..113af090 100644
--- a/phrasebook/SentencesBul.gf
+++ b/phrasebook/SentencesBul.gf
@@ -28,7 +28,7 @@ lin YouFamMale = mkPerson youSg_Pron ;
 
 lin ACitizen p cit = 
       let noun : N
-               = case p.name.a.gn of {
+               = case p.name.gn of {
                    R.GSg g => lin N {s   = \\nf => cit.s1 ! g      ! nf;
                                      rel = cit.s2.s; relPost = False;
                                      g   = case g of {R.Masc=>R.AMasc R.Human; R.Fem=>R.AFem; R.Neut=>R.ANeut}
diff --git a/phrasebook/WordsBul.gf b/phrasebook/WordsBul.gf
index 18772fa7..527b3604 100644
--- a/phrasebook/WordsBul.gf
+++ b/phrasebook/WordsBul.gf
@@ -142,7 +142,7 @@ concrete WordsBul of Words = SentencesBul **
     ALike p item = mkCl p.name (dirV2 (actionV (mkV186 "харесвам") (mkV186 "харесам"))) item ;
     ALive p co = mkCl p.name (mkVP (mkVP (stateV (mkV160 "живея"))) (SyntaxBul.mkAdv in_Prep (mkNP co))) ;
     ALove p q = mkCl p.name (dirV2 (actionV (mkV186 "обичам") (mkV152 "обикна"))) q.name ;
-    AMarried p = mkCl p.name (mkA076 (case p.name.a.gn of {
+    AMarried p = mkCl p.name (mkA076 (case p.name.gn of {
                                         R.GSg R.Fem => "омъжен" ;
                                         _           => "женен"
                                       })) ;