diff --git a/lib/src/japanese/DocumentationJpn.gf b/lib/src/japanese/DocumentationJpn.gf
new file mode 100644
index 000000000..3b952cb72
--- /dev/null
+++ b/lib/src/japanese/DocumentationJpn.gf
@@ -0,0 +1,16 @@
+--# -path=.:../abstract:../common
+concrete DocumentationJpn of Documentation = CatJpn ** open
+  HTML in {
+
+lincat
+  Inflection = {t : Str; s1,s2 : Str} ;
+  Definition = {s : Str} ;
+  Document = {s : Str} ;
+  Tag      = {s : Str} ;
+
+lin
+  NoDefinition       = {s=""};
+  MkDefinition   d   = {s="<p>"++d.s++"</p>"};
+  MkDefinitionEx d e = {s="<p>"++d.s++"</p><p>"++e.s++"</p>"};
+
+}
diff --git a/lib/src/japanese/LangJpn.gf b/lib/src/japanese/LangJpn.gf
index 9101b80be..73d4f5145 100644
--- a/lib/src/japanese/LangJpn.gf
+++ b/lib/src/japanese/LangJpn.gf
@@ -3,5 +3,6 @@
   concrete LangJpn of Lang = 
     GrammarJpn, 
     LexiconJpn
+  ,DocumentationJpn --# notpresent
     ;
 
diff --git a/lib/src/thai/DocumentationTha.gf b/lib/src/thai/DocumentationTha.gf
new file mode 100644
index 000000000..9a3367070
--- /dev/null
+++ b/lib/src/thai/DocumentationTha.gf
@@ -0,0 +1,16 @@
+--# -path=.:../abstract:../common
+concrete DocumentationTha of Documentation = CatTha ** open
+  HTML in {
+
+lincat
+  Inflection = {t : Str; s1,s2 : Str} ;
+  Definition = {s : Str} ;
+  Document = {s : Str} ;
+  Tag      = {s : Str} ;
+
+lin
+  NoDefinition       = {s=""};
+  MkDefinition   d   = {s="<p>"++d.s++"</p>"};
+  MkDefinitionEx d e = {s="<p>"++d.s++"</p><p>"++e.s++"</p>"};
+
+}
diff --git a/lib/src/thai/LangTha.gf b/lib/src/thai/LangTha.gf
index fda8cdf98..afd49e733 100644
--- a/lib/src/thai/LangTha.gf
+++ b/lib/src/thai/LangTha.gf
@@ -4,6 +4,7 @@ concrete LangTha of Lang =
   GrammarTha,
   LexiconTha
   ,ConstructionTha
+  ,DocumentationTha --# notpresent
   ** {
 
 
diff --git a/lib/src/translator/TranslateJpn.gf b/lib/src/translator/TranslateJpn.gf
index 6f9c8e46a..f633260f6 100644
--- a/lib/src/translator/TranslateJpn.gf
+++ b/lib/src/translator/TranslateJpn.gf
@@ -21,7 +21,7 @@ concrete TranslateJpn of Translate =
   RelativeJpn,
   IdiomJpn,
 ----  ConstructionJpn, ---- TODO
-----  DocumentationJpn, ---- TODO
+  DocumentationJpn, ---- TODO
 
   ChunkJpn,
   ExtensionsJpn [
diff --git a/lib/src/translator/TranslateTha.gf b/lib/src/translator/TranslateTha.gf
index cb4b61cd6..03b7785db 100644
--- a/lib/src/translator/TranslateTha.gf
+++ b/lib/src/translator/TranslateTha.gf
@@ -21,7 +21,7 @@ concrete TranslateTha of Translate =
   RelativeTha,
   IdiomTha,
   ConstructionTha,
---  DocumentationTha,
+  DocumentationTha,
 
   ChunkTha,
   ExtensionsTha [