diff --git a/src/german/AllGer.gf b/src/german/AllGer.gf
index 83793a9b1..dd57eec3d 100644
--- a/src/german/AllGer.gf
+++ b/src/german/AllGer.gf
@@ -3,5 +3,8 @@
 concrete AllGer of AllGerAbs = 
   LangGer,
   IrregGer,
+----  ExtendGer, ---- to replace ExtraGer
   ExtraGer
-  ** {} ;
+  **
+  open ExtendGer in ---- to force compilation
+    {} ;
diff --git a/src/german/AllGerAbs.gf b/src/german/AllGerAbs.gf
index 85ef801a4..de0836698 100644
--- a/src/german/AllGerAbs.gf
+++ b/src/german/AllGerAbs.gf
@@ -3,5 +3,6 @@
 abstract AllGerAbs = 
   Lang,
   IrregGerAbs,
+----  Extend,
   ExtraGerAbs
   ** {} ;
diff --git a/src/german/ExtendGer.gf b/src/german/ExtendGer.gf
new file mode 100644
index 000000000..d356d93f2
--- /dev/null
+++ b/src/german/ExtendGer.gf
@@ -0,0 +1,19 @@
+--# -path=alltenses:../common:../abstract
+
+concrete ExtendGer of Extend =
+  CatGer ** ExtendFunctor
+   - [InOrderToVP]
+  with
+    (Grammar = GrammarGer) **
+  open
+    GrammarGer,
+    ResGer,
+    Coordination,
+    Prelude,
+    ParadigmsGer in {
+
+lin
+
+  InOrderToVP vp = {s = "um" ++ useInfVP False vp} ;
+  
+}
\ No newline at end of file