diff --git a/src/polish/AllPol.gf b/src/polish/AllPol.gf
index b3953ead..f2c9d325 100644
--- a/src/polish/AllPol.gf
+++ b/src/polish/AllPol.gf
@@ -1,5 +1,6 @@
 --# -path=.:../abstract:../common:prelude
 
 concrete AllPol of AllPolAbs = 
-  LangPol
+  LangPol,
+  ExtraPol
   ** {} ;
diff --git a/src/polish/AllPolAbs.gf b/src/polish/AllPolAbs.gf
index c999c0be..4a65a389 100644
--- a/src/polish/AllPolAbs.gf
+++ b/src/polish/AllPolAbs.gf
@@ -1,5 +1,6 @@
 --# -path=.:../abstract:../common:prelude
 
 abstract AllPolAbs = 
-  Lang
+  Lang,
+  ExtraPolAbs
   ** {} ;
diff --git a/src/polish/ExtraPol.gf b/src/polish/ExtraPol.gf
index 2d34dc09..162d5b86 100644
--- a/src/polish/ExtraPol.gf
+++ b/src/polish/ExtraPol.gf
@@ -1,3 +1,12 @@
---concrete ExtraPol of ExtraPolAbs = CatPol ** {
---
--- } 
+concrete ExtraPol of ExtraPolAbs = CatPol ** open ResPol in {
+
+  lin ProDrop p = {
+    nom = [] ;
+    voc = p.voc ;
+    dep = p.dep ;
+    sp = p.sp ;
+    n = p.n ;
+    p = p.p ;
+    g = p.g ;
+ } ;
+}