(Pes) Fixes in NP complements

src/persian/IdiomPes.gf

@@ -9,7 +9,7 @@ lin
   GenericCl vp = mkSClause "آدم" (agrP3 Sg) vp ;
 
   CleftNP np rs =
-	 let cl = mkSClause (np.s ! Bare) (np.a) (predV beVerb);
+	 let cl = mkSClause (np2str np) (np.a) (predV beVerb);
 	  in
 	   {s = \\t,p,o =>  cl.s ! t ! p ! o ++ rs.s ! np.a };
 
@@ -17,11 +17,11 @@ lin
 
   ExistNP np =
     mkSClause [] (agrP3 (fromAgr np.a).n)
-              (insertComp (\\_ => np.s ! Bare) (predV existVerb)) ;
+              (insertComp (\\_ => np2str np) (predV existVerb)) ;
 
   ExistNPAdv np adv =
     mkSClause [] (agrP3 (fromAgr np.a).n)
-              (insertComp (\\_ => np.s ! Bare ++ adv.s)
+              (insertComp (\\_ => np2str np ++ adv.s)
                           (predV existVerb)
               ) ;
 
@@ -36,7 +36,7 @@ lin
   ImpPl1 vp = let a = agrP1 Pl in
     {s = "بیایید" ++ showVPH (VSubj Pos a) a vp } ;
 	ImpP3 np vp =
-    {s = "بگذارید" ++ np.s ! Bare ++ showVPH (VSubj Pos np.a) np.a vp};
+    {s = "بگذارید" ++ np2str np ++ showVPH (VSubj Pos np.a) np.a vp};
 
 oper
   existVerb = mkV "وجود" haveVerb ;