From c3f6d50fdbabf8d522ba316f3f8f9fa5a6a68c01 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 8 Mar 2011 21:07:17 +0000
Subject: [PATCH] German verbs with -ieren

---
 src/german/ParadigmsGer.gf | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/german/ParadigmsGer.gf b/src/german/ParadigmsGer.gf
index e50c87637..f416a6166 100644
--- a/src/german/ParadigmsGer.gf
+++ b/src/german/ParadigmsGer.gf
@@ -427,7 +427,10 @@ mkV2 : overload {
       frag    = stemVerb fragen ;
       fragt   = verbT frag ;
       fragte  = fragt + "e" ;
-      gefragt = "ge" + fragt ;
+      gefragt : Str = case frag of {
+        _ + "ier" => fragt ;
+        _ => "ge" + fragt
+        } ;
     in
     mk6V fragen fragt (frag + "e") fragte fragte gefragt ;