From 08d038e98205678f60c01366b793c1ab470e7442 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Sun, 23 Oct 2011 18:17:13 +0000
Subject: [PATCH] fixed ParadigmsEng mkV 2

---
 lib/src/english/ParadigmsEng.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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 {