diff --git a/lib/src/english/IdiomEng.gf b/lib/src/english/IdiomEng.gf
index 017ed37f1..da77623ea 100644
--- a/lib/src/english/IdiomEng.gf
+++ b/lib/src/english/IdiomEng.gf
@@ -30,7 +30,7 @@ concrete IdiomEng of Idiom = CatEng ** open Prelude, ResEng in {
       mkQuestion (ss (ip.s ! npNom)) 
         (mkClause "there" (agrP3 ip.n) (insertObj (\\_ => adv.s) (predAux auxBe))) ;
 
-    ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.s2 ! a) (predAux auxBe) ;
+    ProgrVP vp = insertObj (\\a => vp.ad ++ vp.prp ++ vp.p ++ vp.s2 ! a) (predAux auxBe) ;
 
     ImpPl1 vp = {s = "let's" ++ infVP VVAux vp Simul CPos (AgP1 Pl)} ;