diff --git a/lib/src/translator/TranslateEng.gf b/lib/src/translator/TranslateEng.gf
index c7795e2e5..928429222 100644
--- a/lib/src/translator/TranslateEng.gf
+++ b/lib/src/translator/TranslateEng.gf
@@ -24,7 +24,9 @@ concrete TranslateEng of Translate =
   SentenceEng - [
     UseCl     -- replaced by UseCl | ContractedUseCl
     ],        
-  QuestionEng,
+  QuestionEng - [
+    QuestVP   -- replaced by QuestVP | contracted QuestVP
+    ],       
   RelativeEng - [IdRP],
   IdiomEng,
   ConstructionEng,
@@ -49,6 +51,13 @@ lin
    | E.ContractedUseCl t p cl    -- I'm here
    ;
 
+  QuestVP qp vp = 
+     G.QuestVP qp vp             -- who is there
+   | 
+      let cl = mkClause (qp.s ! npNom) (agrP3 qp.n) vp   -- who's there
+      in {s = \\t,a,b,_ => cl.s ! t ! a ! b ! ODir True}
+   ;
+
   ComplVS vs s = G.ComplVS vs s | E.ComplBareVS vs s ;
   SlashV2S vs s = G.SlashV2S vs s | E.SlashBareV2S vs s ;
   ComplSlash vps np = G.ComplSlash vps np | E.ComplSlashPartLast vps np ;