diff --git a/resource/english/ResEng.gf b/resource/english/ResEng.gf
index ae8ee0c4..a00eb5aa 100644
--- a/resource/english/ResEng.gf
+++ b/resource/english/ResEng.gf
@@ -316,8 +316,10 @@ resource ResEng = ParamX ** open Prelude in {
     agrVerb (verb.s ! VPres) (verb.s ! VInf) ;
 
   infVP : Bool -> VP -> Agr -> Str = \isAux,vp,a ->
-    if_then_Str isAux [] "to" ++ 
+    case isAux of {True => [] ; False => "to"} ++ 
     vp.inf ++ vp.s2 ! a ;
+---    if_then_Str isAux [] "to" ++ 
+---    vp.inf ++ vp.s2 ! a ;
 
   agrVerb : Str -> Str -> Agr -> Str = \has,have,agr -> 
     case agr of {