diff --git a/lib/src/translator/Extensions.gf b/lib/src/translator/Extensions.gf
index 28e4a6821..5f03b5888 100644
--- a/lib/src/translator/Extensions.gf
+++ b/lib/src/translator/Extensions.gf
@@ -47,14 +47,14 @@ fun
   GenIP       : IP -> IQuant ;      -- whose
   GenRP       : Num -> CN -> RP ;   -- whose car(s)
  
-  CompoundCN  : N -> CN -> CN ;     -- control system / controls system / control-system
+  CompoundN   : N -> N  -> N ;      -- control system / controls system / control-system
   CompoundAP  : N -> A  -> AP ;     -- language independent / language-independent
 
-  GerundCN    : VP -> CN ;         -- publishing of the document (can get a determiner)
-  GerundNP    : VP -> NP ;         -- publishing the document (by nature definite)
-  GerundAdv   : VP -> Adv ;        -- publishing the document (prepositionless adverb)
+  GerundCN    : VP -> CN ;          -- publishing of the document (can get a determiner)
+  GerundNP    : VP -> NP ;          -- publishing the document (by nature definite)
+  GerundAdv   : VP -> Adv ;         -- publishing the document (prepositionless adverb)
 
-  PresPartAP  : VP -> AP ;         -- sleeping (man), (man) sleeping in the car
+  PresPartAP  : VP -> AP ;          -- sleeping (man), (man) sleeping in the car
 
   PastPartAP      : VPSlash -> AP ;         -- lost (opportunity) ; (opportunity) lost in space
   PastPartAgentAP : VPSlash -> NP -> AP ;   -- (opportunity) lost by the company
diff --git a/lib/src/translator/ExtensionsBul.gf b/lib/src/translator/ExtensionsBul.gf
index 017e07ce4..25499b54a 100644
--- a/lib/src/translator/ExtensionsBul.gf
+++ b/lib/src/translator/ExtensionsBul.gf
@@ -36,8 +36,9 @@ lin
   EmptyRelSlash = E.EmptyRelSlash ;
 
 lin
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
     s = \\nf => (noun.rel ! nform2aform nf cn.g) ++ (cn.s ! (indefNForm nf)) ;
+    rel = \\af => (noun.rel ! af) ++ (cn.rel ! af) ; ---- is this correct? AR 29/5/2014
     g = cn.g
   } ;
 
diff --git a/lib/src/translator/ExtensionsChi.gf b/lib/src/translator/ExtensionsChi.gf
index feba34be8..0b509782d 100644
--- a/lib/src/translator/ExtensionsChi.gf
+++ b/lib/src/translator/ExtensionsChi.gf
@@ -44,7 +44,7 @@ lin
 
 --  but_Subj = {s = "pero" ; m = Indic} ; ---- strange to have this as Subj
 
-  CompoundCN noun cn  = {s = noun.s ++ cn.s ; c = cn.c} ; ----
+  CompoundN noun cn  = {s = noun.s ++ cn.s ; c = cn.c} ; ----
   CompoundAP noun adj = complexAP (noun.s ++ possessive_s ++ adj.s) ; ----
 
   GerundN v = {
diff --git a/lib/src/translator/ExtensionsDut.gf b/lib/src/translator/ExtensionsDut.gf
index 8fc664fa7..f0615955c 100644
--- a/lib/src/translator/ExtensionsDut.gf
+++ b/lib/src/translator/ExtensionsDut.gf
@@ -64,8 +64,8 @@ lin
     PredVPosv = G.PredVP;
     PredVPovs = G.PredVP;
 
-  CompoundCN noun cn = {
-    s = \\af,nf => glue (noun.s ! NF Sg Nom) (cn.s ! af ! nf) ;
+  CompoundN noun cn = {
+    s = \\nf => glue (noun.s ! NF Sg Nom) (cn.s ! nf) ; ---- TODO: introduce compound form
     g = cn.g
     } ;
 
diff --git a/lib/src/translator/ExtensionsEng.gf b/lib/src/translator/ExtensionsEng.gf
index b2a07aae4..c28fd84af 100644
--- a/lib/src/translator/ExtensionsEng.gf
+++ b/lib/src/translator/ExtensionsEng.gf
@@ -33,7 +33,7 @@ lin
   EmptyRelSlash = E.EmptyRelSlash ;
 
 lin
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
     s = (\\n,c => noun.s ! Sg ! Nom ++ cn.s ! n ! c) 
       | (\\n,c => noun.s ! Pl ! Nom ++ cn.s ! n ! c)
       | (\\n,c => noun.s ! Sg ! Nom ++ Predef.BIND ++ "-" ++ Predef.BIND ++ cn.s ! n ! c) 
diff --git a/lib/src/translator/ExtensionsFin.gf b/lib/src/translator/ExtensionsFin.gf
index 9696fb29c..3196858d6 100644
--- a/lib/src/translator/ExtensionsFin.gf
+++ b/lib/src/translator/ExtensionsFin.gf
@@ -47,7 +47,7 @@ lin
                }
          ) ;
 
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
     s = \\nf => noun.s ! 10 ++ BIND ++ cn.s ! nf ;
     h = cn.h
     } ;
diff --git a/lib/src/translator/ExtensionsFre.gf b/lib/src/translator/ExtensionsFre.gf
index db96febf5..9968a6389 100644
--- a/lib/src/translator/ExtensionsFre.gf
+++ b/lib/src/translator/ExtensionsFre.gf
@@ -48,7 +48,7 @@ lin
 
 
 lin
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
     s = \\n => cn.s ! n ++ elisDe ++ noun.s ! Sg ;
     g = cn.g
   } ;
diff --git a/lib/src/translator/ExtensionsGer.gf b/lib/src/translator/ExtensionsGer.gf
index 2b3ddc56f..7b7c31acd 100644
--- a/lib/src/translator/ExtensionsGer.gf
+++ b/lib/src/translator/ExtensionsGer.gf
@@ -63,8 +63,13 @@ lin
     PredVPosv = G.PredVP;
     PredVPovs = G.PredVP;
 
-  CompoundCN noun cn = {
-    s = \\a,n,c => glue (noun.s ! Sg ! Nom) (cn.s ! a ! n ! c) ;
+  CompoundN noun cn = {
+    s = \\n,c => glue noun.co (cn.uncap.s ! n ! c) ;
+    co = glue noun.co (cn.uncap.co) ;
+    uncap = {
+      s = \\n,c => glue noun.uncap.co (cn.uncap.s ! n ! c) ;
+      co = glue noun.uncap.co (cn.uncap.co)
+      } ;
     g = cn.g
   } ;
 
diff --git a/lib/src/translator/ExtensionsHin.gf b/lib/src/translator/ExtensionsHin.gf
index fa4498028..5924f321c 100644
--- a/lib/src/translator/ExtensionsHin.gf
+++ b/lib/src/translator/ExtensionsHin.gf
@@ -37,7 +37,7 @@ lin
 
 lin
 
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
     s = \\n,c => cn.s ! Sg ! Dir ++ noun.s ! n ! c;
     g = cn.g
   } ;
diff --git a/lib/src/translator/ExtensionsIta.gf b/lib/src/translator/ExtensionsIta.gf
index 628159e38..869cf2308 100644
--- a/lib/src/translator/ExtensionsIta.gf
+++ b/lib/src/translator/ExtensionsIta.gf
@@ -48,7 +48,7 @@ lin
 
 
 lin
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
     s = \\n => cn.s ! n ++ "di" ++ noun.s ! Sg ;
     g = cn.g
   } ;
diff --git a/lib/src/translator/ExtensionsSpa.gf b/lib/src/translator/ExtensionsSpa.gf
index f003734c2..52d650e98 100644
--- a/lib/src/translator/ExtensionsSpa.gf
+++ b/lib/src/translator/ExtensionsSpa.gf
@@ -48,7 +48,7 @@ lin
 
 
 lin
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
     s = \\n => cn.s ! n ++ "de" ++ noun.s ! Sg ;
     g = cn.g
   } ;
diff --git a/lib/src/translator/ExtensionsSwe.gf b/lib/src/translator/ExtensionsSwe.gf
index a914bfb2c..eb51133f9 100644
--- a/lib/src/translator/ExtensionsSwe.gf
+++ b/lib/src/translator/ExtensionsSwe.gf
@@ -35,10 +35,11 @@ lin
 
 
 lin
-  CompoundCN noun cn = {
+  CompoundN noun cn = {
       s = \\n,d,c => noun.co ++ BIND ++ cn.s ! n ! d ! c ; 
-      g = cn.g ;
-      isMod = False
+      co = noun.co ++ BIND ++ cn.s ! Sg ! Indef ! Gen   -- (last+bil)s + chaufför 
+        | noun.co ++ cn.co ;
+      g = cn.g
       } ;
 
   CompoundAP noun adj = {
diff --git a/lib/src/translator/Translate.gf b/lib/src/translator/Translate.gf
index eff5762da..2c5665420 100644
--- a/lib/src/translator/Translate.gf
+++ b/lib/src/translator/Translate.gf
@@ -24,7 +24,7 @@ abstract Translate =
 
   Construction,
   Extensions [
-    CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+    CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
     DirectComplVS, DirectComplVQ, FocusObjS
 ----    , PastPartAP, PastPartAgentAP, PresPartAP ---- not yet available for all languages
     ],
diff --git a/lib/src/translator/TranslateBul.gf b/lib/src/translator/TranslateBul.gf
index cb71b7f5c..8640ea83e 100644
--- a/lib/src/translator/TranslateBul.gf
+++ b/lib/src/translator/TranslateBul.gf
@@ -24,7 +24,7 @@ concrete TranslateBul of Translate =
   DocumentationBul,
 
   ChunkBul,
-  ExtensionsBul [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsBul [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
 
   DictionaryBul ** 
 open MorphoBul, ResBul, ParadigmsBul, SyntaxBul, CommonScand, (E = ExtraBul), Prelude in {
diff --git a/lib/src/translator/TranslateChi.gf b/lib/src/translator/TranslateChi.gf
index 841fffb35..7c10f498c 100644
--- a/lib/src/translator/TranslateChi.gf
+++ b/lib/src/translator/TranslateChi.gf
@@ -27,7 +27,7 @@ concrete TranslateChi of Translate =
   DocumentationChi,
 
   ChunkChi,
-  ExtensionsChi [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
+  ExtensionsChi [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryChi ** 
  
diff --git a/lib/src/translator/TranslateDut.gf b/lib/src/translator/TranslateDut.gf
index 4afa67994..d3e92ec75 100644
--- a/lib/src/translator/TranslateDut.gf
+++ b/lib/src/translator/TranslateDut.gf
@@ -23,7 +23,7 @@ concrete TranslateDut of Translate =
 ----  DocumentationDut,
 
   ChunkDut,
-  ExtensionsDut [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
+  ExtensionsDut [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryDut ** 
 open MorphoDut, ResDut, ParadigmsDut, SyntaxDut, (E = ExtraDut), Prelude in {
diff --git a/lib/src/translator/TranslateEng.gf b/lib/src/translator/TranslateEng.gf
index 534438b97..596b7968b 100644
--- a/lib/src/translator/TranslateEng.gf
+++ b/lib/src/translator/TranslateEng.gf
@@ -28,7 +28,7 @@ concrete TranslateEng of Translate =
   DocumentationEng,
 
   ChunkEng,
-  ExtensionsEng [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+  ExtensionsEng [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
   DirectComplVS, DirectComplVQ, FocusObjS
 
 ----    , PastPartAP, PastPartAgentAP, PresPartAP
diff --git a/lib/src/translator/TranslateFin.gf b/lib/src/translator/TranslateFin.gf
index 4979827cb..00a5d5de7 100644
--- a/lib/src/translator/TranslateFin.gf
+++ b/lib/src/translator/TranslateFin.gf
@@ -26,7 +26,7 @@ concrete TranslateFin of Translate =
   DocumentationFin,
 
   ChunkFin,
-  ExtensionsFin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+  ExtensionsFin [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
                  DirectComplVS, DirectComplVQ, FocusObjS],
 
   DictionaryFin ** 
diff --git a/lib/src/translator/TranslateFre.gf b/lib/src/translator/TranslateFre.gf
index a7fda7392..c8834c193 100644
--- a/lib/src/translator/TranslateFre.gf
+++ b/lib/src/translator/TranslateFre.gf
@@ -25,7 +25,7 @@ concrete TranslateFre of Translate =
   DocumentationFre,
 
   ChunkFre,
-  ExtensionsFre [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
+  ExtensionsFre [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryFre ** 
 open PhonoFre, MorphoFre, ResFre, CommonRomance, ParadigmsFre, SyntaxFre, Prelude, (G = GrammarFre) in {
diff --git a/lib/src/translator/TranslateGer.gf b/lib/src/translator/TranslateGer.gf
index 9dcd1a5de..5d37b2d38 100644
--- a/lib/src/translator/TranslateGer.gf
+++ b/lib/src/translator/TranslateGer.gf
@@ -23,7 +23,7 @@ concrete TranslateGer of Translate =
   DocumentationGer,
 
   ChunkGer,
-  ExtensionsGer [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+  ExtensionsGer [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
                  DirectComplVS, DirectComplVQ, FocusObjS],
 
   DictionaryGer ** 
diff --git a/lib/src/translator/TranslateHin.gf b/lib/src/translator/TranslateHin.gf
index b85b0d002..c68f11416 100644
--- a/lib/src/translator/TranslateHin.gf
+++ b/lib/src/translator/TranslateHin.gf
@@ -24,7 +24,7 @@ concrete TranslateHin of Translate =
   DocumentationHin,
 
   ChunkHin,
-  ExtensionsHin [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
+  ExtensionsHin [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash],
 
   DictionaryHin ** 
 open MorphoHin, ResHin, ParadigmsHin, SyntaxHin, CommonScand, (E = ExtraHin), Prelude in {
diff --git a/lib/src/translator/TranslateIta.gf b/lib/src/translator/TranslateIta.gf
index 96a1ce724..a0e824eac 100644
--- a/lib/src/translator/TranslateIta.gf
+++ b/lib/src/translator/TranslateIta.gf
@@ -25,7 +25,7 @@ concrete TranslateIta of Translate =
   DocumentationIta,
 
   ChunkIta,
-  ExtensionsIta [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
+  ExtensionsIta [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionaryIta ** 
 open MorphoIta, ResIta, ParadigmsIta, SyntaxIta, (E = ExtraIta), (G = GrammarIta), Prelude in {
diff --git a/lib/src/translator/TranslateSpa.gf b/lib/src/translator/TranslateSpa.gf
index a84e6befb..a45f2bcf2 100644
--- a/lib/src/translator/TranslateSpa.gf
+++ b/lib/src/translator/TranslateSpa.gf
@@ -25,7 +25,7 @@ concrete TranslateSpa of Translate =
   DocumentationSpa,
 
   ChunkSpa,
-  ExtensionsSpa [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
+  ExtensionsSpa [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP],
 
   DictionarySpa ** 
 open MorphoSpa, ResSpa, ParadigmsSpa, SyntaxSpa, (E = ExtraSpa), (G = GrammarSpa), Prelude in {
diff --git a/lib/src/translator/TranslateSwe.gf b/lib/src/translator/TranslateSwe.gf
index 89bfcf7e0..7c516f668 100644
--- a/lib/src/translator/TranslateSwe.gf
+++ b/lib/src/translator/TranslateSwe.gf
@@ -23,7 +23,7 @@ concrete TranslateSwe of Translate =
   DocumentationSwe,
 
   ChunkSwe,
-  ExtensionsSwe [CompoundCN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
+  ExtensionsSwe [CompoundN,AdAdV,UttAdV,ApposNP,MkVPI, MkVPS, PredVPS, PassVPSlash, PassAgentVPSlash, CompoundAP,
                  DirectComplVS, DirectComplVQ, FocusObjS],
 
   DictionarySwe ** 
diff --git a/lib/src/translator/translate.probs b/lib/src/translator/translate.probs
index 8ed04bbbd..1f389d64d 100644
--- a/lib/src/translator/translate.probs
+++ b/lib/src/translator/translate.probs
@@ -59,7 +59,7 @@ ComplVQ	3.3840311330864245e-4
 ComplVS	0.10664084776246609
 ComplVV	6.258577578913727e-2
 CompoundAP	0.0010736547702286556
-CompoundCN	0.0010736547702286556
+CompoundN	0.0010736547702286556
 ConjAP	2.1189670416781e-3
 ConjAdV	9.744689144416293e-5
 ConjAdv	1.0922898208991453e-3