diff --git a/src/arabic/CatAra.gf b/src/arabic/CatAra.gf
index 222c798bb..5dba84f27 100644
--- a/src/arabic/CatAra.gf
+++ b/src/arabic/CatAra.gf
@@ -92,7 +92,7 @@ concrete CatAra of Cat = CommonX - [Utt]  ** open ResAra, Prelude, ParamX in {
     N = ResAra.Noun ;
     N2 = ResAra.Noun2 ;
     N3 = ResAra.Noun3 ;
-    PN = {s : Case => Str; g : Gender; h : Species} ;
+    GN, SN, LN, PN = {s : Case => Str; g : Gender; h : Species} ;
 
 linref
 
diff --git a/src/arabic/NamesAra.gf b/src/arabic/NamesAra.gf
new file mode 100644
index 000000000..d89286969
--- /dev/null
+++ b/src/arabic/NamesAra.gf
@@ -0,0 +1,17 @@
+concrete NamesAra of Names = CatAra ** open ResAra, Prelude in { 
+
+lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> emptyNP ** {
+      s = n.s ;
+      a = {pgn = Per3 n.g Sg ; isPron = False} ;
+      } ;
+lin FullName gn sn = emptyNP ** {
+      s = \\c => gn.s ! c ++ sn.s ! c ;
+      a = {pgn = Per3 gn.g Sg ; isPron = False} ;
+      } ;
+
+lin UseLN pn = emptyNP ** {
+      s = pn.s ;
+      a = {pgn = Per3 pn.g Sg ; isPron = False} ;
+      } ;
+
+}