fixed copula verbs

src/russian/NamesRus.gf

@@ -26,7 +26,7 @@ lin PlSurname sn =
       } ;   -- Does NP need animacy?
 
 lin FullName gn sn =
-      { s=\\cas => gn.s ! Nom ++ sn.s ! gn.g ! cas ;
+      { s=\\cas => gn.s ! cas ++ sn.s ! gn.g ! cas ;
         pron=False;
         a=let g = case gn.g of {
                     Male => Masc ;

src/russian/ParadigmsRus.gf

@@ -511,6 +511,10 @@ oper
       = \a, ln -> ln ** {
                      s = \\cas => (adjFormsAdjective a).s ! (gennum ln.g ln.n) ! ln.anim ! cas ++ ln.s ! cas
                   } ;
+    mkLN : LN -> Str -> LN
+      = \ln, suffix -> ln ** {
+                     s = \\cas =>  ln.s ! cas ++ suffix
+                  } ;
   } ;
 
   invarLN : Str -> Gender -> Number -> LN

src/russian/VerbRus.gf

@@ -188,17 +188,17 @@ lin
     };
 
   -- : NP -> Comp ;            -- (be) the man
-  CompNP np = {s=\\a=>np.s ! Ins ; adv=[] ; cop=InsCopula} ;
+  CompNP np = {s=\\a=>np.s ! Nom ; adv=[] ; cop=NomCopula} ;
 
   -- : Adv -> Comp ;            -- (be) here
   CompAdv adv = {s=\\a=>[] ; adv=adv.s ; cop=ExplicitCopula} ;
   -- : CN -> Comp ;             -- (be) a man/men
   CompCN cn = {
-    s=\\a=>cn.s ! numGenNum (agrGenNum a) ! Ins ;
+    s=\\a=>cn.s ! numGenNum (agrGenNum a) ! Nom ;
     adv=[] ;
-    cop=InsCopula
+    cop=NomCopula
     } ;
 
   -- : VP ;                     -- be
-  UseCopula = {adv=\\a=>[] ; verb=copulaIns ; dep=[] ; compl=\\p,a=>[]} ;
+  UseCopula = {adv=\\a=>[] ; verb=copulaIns; dep=[] ; compl=\\p,a=>[]} ;
 }