diff --git a/lib/src/english/ExtraEng.gf b/lib/src/english/ExtraEng.gf
index 62949e8f6..652c32e70 100644
--- a/lib/src/english/ExtraEng.gf
+++ b/lib/src/english/ExtraEng.gf
@@ -129,4 +129,6 @@ concrete ExtraEng of ExtraEngAbs = CatEng **
     AdvAP ap adv = {s = \\a => ap.s ! a ++ adv.s ; isPre = False} ;
 
     UseCopula = predAux auxBe ;
+
+    UttVPShort vp = {s = infVP True vp (agrP3 Sg)} ;
 } 
diff --git a/lib/src/english/ExtraEngAbs.gf b/lib/src/english/ExtraEngAbs.gf
index 19cf48717..8dc96ff5a 100644
--- a/lib/src/english/ExtraEngAbs.gf
+++ b/lib/src/english/ExtraEngAbs.gf
@@ -16,4 +16,9 @@ abstract ExtraEngAbs = Extra - [ProDrop] ** {
     that_RP : RP ; -- "that" as a relational pronoun (IdRP is "which" / "who")
 
     each_Det : Det ;
+
+-- infinitive without to
+
+    UttVPShort : VP -> Utt ;
+
 }