diff --git a/src/persian/ParadigmsPes.gf b/src/persian/ParadigmsPes.gf
index 935832496..96eb4a154 100644
--- a/src/persian/ParadigmsPes.gf
+++ b/src/persian/ParadigmsPes.gf
@@ -153,7 +153,9 @@ oper
    mkVS : Str -> VS -- predictable verb with sentence complement in subjunctive.
     = \s -> lin VS (regV s ** {compl=subjunctive}) ;
    mkVS : V -> VS -- VS out of a verb, sentence complement in subjunctive.
-    = \v -> lin VS (v ** {compl=subjunctive})
+    = \v -> lin VS (v ** {compl=subjunctive}) ;
+   mkVS : VVForm -> V -> VS -- sentence complement given as argument
+    = \vvf,v -> lin VS (v ** {compl=vvf}) ;
   } ;
 
   mkVV = overload {
@@ -174,8 +176,8 @@ oper
      = \s -> lin V2S (regV s ** {compl=subjunctive ; c2 = prepOrRa "را"}) ;
     mkV2S : V -> V2S  -- direct object with را, sentence complement in subjunctive.
      = \v -> lin V2S (v ** {compl=subjunctive ; c2 = prepOrRa "را"}) ;
-    mkV2S : V -> Prep -> VVForm -> V2S  -- direct object and mood for sentence complement as arguments.
-     = \v,prep,vvf -> lin V2S (v ** {compl=vvf ; c2 = prep}) ;
+    mkV2S : Prep -> VVForm -> V -> V2S  -- direct object and mood for sentence complement as arguments.
+     = \prep,vvf,v -> lin V2S (v ** {compl=vvf ; c2 = prep}) ;
     mkV2S : V2 -> V2S -- direct object given by V2, sentence complement in subjunctive.
      = \v2 -> lin V2S (v2 ** {compl=subjunctive}) ;
     mkV2S : VS -> V2S -- direct object with را, sentence complement given by VS.