diff --git a/lib/src/abstract/Structural.gf b/lib/src/abstract/Structural.gf
index dbf9eb6c5..632eb48c1 100644
--- a/lib/src/abstract/Structural.gf
+++ b/lib/src/abstract/Structural.gf
@@ -120,4 +120,7 @@ abstract Structural = Cat ** {
   as_CAdv : CAdv ;
 
   have_V2 : V2 ;
+
+  fun language_title_Utt : Utt ;
+
 }
diff --git a/lib/src/arabic/StructuralAra.gf b/lib/src/arabic/StructuralAra.gf
index 98b52523e..c11706e65 100644
--- a/lib/src/arabic/StructuralAra.gf
+++ b/lib/src/arabic/StructuralAra.gf
@@ -109,4 +109,6 @@ concrete StructuralAra of Structural = CatAra **
 
   have_V2      = dirV2 (regV "يَملِك") ; 
 
+  lin language_title_Utt = ss "العربية" ;
+
 }
diff --git a/lib/src/bulgarian/StructuralBul.gf b/lib/src/bulgarian/StructuralBul.gf
index 422ed7169..6a8a8f501 100644
--- a/lib/src/bulgarian/StructuralBul.gf
+++ b/lib/src/bulgarian/StructuralBul.gf
@@ -121,5 +121,7 @@ concrete StructuralBul of Structural = CatBul **
 
   have_V2 = dirV2 (stateV (mkV186 "����")) ;
 
+  lin language_title_Utt = ss "���������" ;
+
 }
 
diff --git a/lib/src/catalan/StructuralCat.gf b/lib/src/catalan/StructuralCat.gf
index f1b1f2f5a..c0626ad90 100644
--- a/lib/src/catalan/StructuralCat.gf
+++ b/lib/src/catalan/StructuralCat.gf
@@ -165,4 +165,6 @@ lin
 oper
   etConj : {s : Str ; n : MorphoCat.Number} = {s = "i" } ** {n = Pl} ;
 
+  lin language_title_Utt = ss "català" ;
+
 }
diff --git a/lib/src/danish/StructuralDan.gf b/lib/src/danish/StructuralDan.gf
index 8c582ece4..0eca266c7 100644
--- a/lib/src/danish/StructuralDan.gf
+++ b/lib/src/danish/StructuralDan.gf
@@ -125,5 +125,7 @@ concrete StructuralDan of Structural = CatDan **
   oper
     vem = MorphoDan.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ;
 
+  lin language_title_Utt = ss "dansk" ;
+
 }
 
diff --git a/lib/src/english/StructuralEng.gf b/lib/src/english/StructuralEng.gf
index 2d929a121..5a596f4ad 100644
--- a/lib/src/english/StructuralEng.gf
+++ b/lib/src/english/StructuralEng.gf
@@ -137,5 +137,7 @@ concrete StructuralEng of Structural = CatEng **
 
   have_V2 = dirV2 (mk5V "have" "has" "had" "had" "having") ;
 
+  lin language_title_Utt = ss "English" ;
+
 }
 
diff --git a/lib/src/finnish/StructuralFin.gf b/lib/src/finnish/StructuralFin.gf
index 7a08acd81..a4379b2af 100644
--- a/lib/src/finnish/StructuralFin.gf
+++ b/lib/src/finnish/StructuralFin.gf
@@ -304,5 +304,7 @@ lin
 
   have_V2 = mkV2 (caseV adessive vOlla) ;
 
+  lin language_title_Utt = ss "suomi" ;
+
 }
 
diff --git a/lib/src/french/StructuralFre.gf b/lib/src/french/StructuralFre.gf
index 5f92ccdff..2b4c3a0ab 100644
--- a/lib/src/french/StructuralFre.gf
+++ b/lib/src/french/StructuralFre.gf
@@ -189,5 +189,7 @@ lin
 
   have_V2 = avoir_V2 ;
 
+  lin language_title_Utt = ss "fran�ais" ;
+
 }
 
diff --git a/lib/src/german/StructuralGer.gf b/lib/src/german/StructuralGer.gf
index a48a30143..b8b71e20d 100644
--- a/lib/src/german/StructuralGer.gf
+++ b/lib/src/german/StructuralGer.gf
@@ -148,4 +148,6 @@ concrete StructuralGer of Structural = CatGer **
   as_CAdv = X.mkCAdv "ebenso" "wie" ;
   have_V2 = P.dirV2 IrregGer.haben_V ;
 
+  lin language_title_Utt = ss "Deutsch" ;
+
 }
diff --git a/lib/src/hindi/StructuralHin.gf b/lib/src/hindi/StructuralHin.gf
index 9ad5d8e53..2e99ee80b 100644
--- a/lib/src/hindi/StructuralHin.gf
+++ b/lib/src/hindi/StructuralHin.gf
@@ -128,5 +128,7 @@ concrete StructuralHin of Structural = CatHin **
 --    s = table Number [x ; y]
 --    } ;
 --
+
+
 }
 --
diff --git a/lib/src/interlingua/StructuralIna.gf b/lib/src/interlingua/StructuralIna.gf
index 69acc0658..9bdc60895 100644
--- a/lib/src/interlingua/StructuralIna.gf
+++ b/lib/src/interlingua/StructuralIna.gf
@@ -113,5 +113,7 @@ oper
       Pl => y
       }} ;
 
+  lin language_title_Utt = ss "interlingua" ;
+
 }
 
diff --git a/lib/src/italian/StructuralIta.gf b/lib/src/italian/StructuralIta.gf
index 1e46b9bbd..28e05daeb 100644
--- a/lib/src/italian/StructuralIta.gf
+++ b/lib/src/italian/StructuralIta.gf
@@ -176,5 +176,7 @@ lin
 
   have_V2 = dirV2 (verboV (avere_2 "avere")) ;
 
+  lin language_title_Utt = ss "italiano" ;
+
 }
 
diff --git a/lib/src/latin/StructuralLat.gf b/lib/src/latin/StructuralLat.gf
index c112ee640..589a91b5d 100644
--- a/lib/src/latin/StructuralLat.gf
+++ b/lib/src/latin/StructuralLat.gf
@@ -120,5 +120,9 @@ concrete StructuralLat of Structural = CatLat **
   youSg_Pron = personalPronoun Masc Sg P2 ;
   youPl_Pron = personalPronoun Masc Pl P2 ;
   youPol_Pron = personalPronoun Masc Sg P2 ;
+
+  lin language_title_Utt = ss "latina" ;
+
+
 }
 
diff --git a/lib/src/mkLogo.gfs b/lib/src/mkLogo.gfs
new file mode 100644
index 000000000..911eaf07f
--- /dev/null
+++ b/lib/src/mkLogo.gfs
@@ -0,0 +1,13 @@
+i LangBul.gfo
+i LangCat.gfo
+i LangDan.gfo
+i LangEng.gfo
+i LangFin.gfo
+i LangFre.gfo
+i LangGer.gfo
+i LangIta.gfo
+i LangNor.gfo
+i LangRus.gfo
+i LangSpa.gfo
+i LangSwe.gfo
+p -cat=S -lang=LangEng "this grammar wants to speak twenty - three new languages" | aw -view=open
diff --git a/lib/src/norwegian/StructuralNor.gf b/lib/src/norwegian/StructuralNor.gf
index f47474cf8..314c362eb 100644
--- a/lib/src/norwegian/StructuralNor.gf
+++ b/lib/src/norwegian/StructuralNor.gf
@@ -126,5 +126,7 @@ concrete StructuralNor of Structural = CatNor **
   oper
     vem = MorphoNor.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ;
 
+  lin language_title_Utt = ss "norsk" ;
+
 }
 
diff --git a/lib/src/russian/StructuralRus.gf b/lib/src/russian/StructuralRus.gf
index d5635005b..70075ed23 100644
--- a/lib/src/russian/StructuralRus.gf
+++ b/lib/src/russian/StructuralRus.gf
@@ -127,4 +127,6 @@ lin
 ---  NeitherNor = sd2 "ни" [", ни"]  ** {n = Sg} ;
 ---  NowhereNP = ss "нигде" ;
 ---  AgentPrep = { s = "" ; c = Nom}; -- missing in Russian
+
+  lin language_title_Utt = ss "Русский" ;
 }
diff --git a/lib/src/spanish/StructuralSpa.gf b/lib/src/spanish/StructuralSpa.gf
index f8cefbbd9..af3e9230a 100644
--- a/lib/src/spanish/StructuralSpa.gf
+++ b/lib/src/spanish/StructuralSpa.gf
@@ -172,5 +172,6 @@ lin
   as_CAdv = X.mkCAdv "si" conjThan ; ----
    have_V2 = dirV2 (verboV (tener_4 "tener")) ;
 
+  lin language_title_Utt = ss "espa�ol" ;
 }
 
diff --git a/lib/src/swedish/StructuralSwe.gf b/lib/src/swedish/StructuralSwe.gf
index 32f8ace3c..6e6d9d5b7 100644
--- a/lib/src/swedish/StructuralSwe.gf
+++ b/lib/src/swedish/StructuralSwe.gf
@@ -151,5 +151,7 @@ lin
   as_CAdv = X.mkCAdv "lika" "som" ;
   have_V2 = dirV2 (mkV "ha" "har" "ha" "hade" "haft" "haft") ; ---- pp
 
+  lin language_title_Utt = ss "svenska" ;
+
 }