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