diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf
index 3b937f27f..ffbae8722 100644
--- a/src/persian/ResPes.gf
+++ b/src/persian/ResPes.gf
@@ -222,7 +222,7 @@ oper
     quest = table
               { ODir => [];
                 OQuest => "آیا" } ;
-    subj = np.s ! Bare ;
+    subj = np2str np ;
     vp = \\ta,p,ord =>
       let vps = clTable vp ! np.a ! ta ! p ;
           vvt = ta2vvt ta ;