diff --git a/src/persian/MorphoPes.gf b/src/persian/MorphoPes.gf
index 908abf194..78d075395 100644
--- a/src/persian/MorphoPes.gf
+++ b/src/persian/MorphoPes.gf
@@ -25,6 +25,10 @@ oper
   -- fatha : Str = "َ" ;
   kasre,fatha : Str = [] ;
 
+  -- for appComp
+  -- runtimeKasre : Str -> Str = \s -> glue s kasre ;
+  runtimeKasre : Str -> Str = \s -> s ;
+
 
 ---- Nouns
 param
diff --git a/src/persian/ResPes.gf b/src/persian/ResPes.gf
index 8235a477b..cc773a539 100644
--- a/src/persian/ResPes.gf
+++ b/src/persian/ResPes.gf
@@ -149,7 +149,9 @@ oper
 -- VP complementation
 ---------------------
   appComp : Compl -> (Mod=>Str) -> Str = \c2,obj ->
-    c2.s ++ obj ! c2.mod ++ c2.ra ;
+    case c2.mod of {
+      Ezafe => runtimeKasre c2.s ++ obj ! Bare   ++ c2.ra ;
+      _     =>              c2.s ++ obj ! c2.mod ++ c2.ra } ;
 
   insertComp : (Agr => Str) -> VPH -> VPH = \obj,vp -> vp ** {
     comp = \\a => vp.comp ! a ++ obj ! a