diff --git a/lib/src/english/ParadigmsEng.gf b/lib/src/english/ParadigmsEng.gf
index ec2cfd030..07ebd7a91 100644
--- a/lib/src/english/ParadigmsEng.gf
+++ b/lib/src/english/ParadigmsEng.gf
@@ -506,7 +506,7 @@ mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
   reg2V fit fitted =
    let fitt = Predef.tk 2 fitted ;
    in 
-     if_then_else V (pbool2bool (Predef.eqStr (init fitt) fit))
+     if_then_else V (pbool2bool (Predef.eqStr (last fit) (last fitt)))
        (mk5V fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing")) 
        (regV fit) ;