diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 432154502b..e9971577a8 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2012-07-23 13:49 UTC+0200 Viktor Szakats (harbour syenar.net)
+  * src/rtl/langcomp.prg
+    - deleted recently added UAKOI and RUKOI language modules
+      (use the old names UAKOI8 and RUKOI8)
+
 2012-07-23 13:42 UTC+0200 Viktor Szakats (harbour syenar.net)
   - src/lang/msghucwi.c
   * doc/en/lang.txt
diff --git a/harbour/src/rtl/langcomp.prg b/harbour/src/rtl/langcomp.prg
index 3f1e8015c6..f7f7508f57 100644
--- a/harbour/src/rtl/langcomp.prg
+++ b/harbour/src/rtl/langcomp.prg
@@ -104,7 +104,6 @@ FUNCTION hb_langSelect( cLangID )
       CASE "PTISO"  ; hb_langNew( cLangID, "PTISO" , "PTUTF", "UTF8" ) ; EXIT
       CASE "RO"     ; hb_langNew( cLangID, "RO852" , "ROUTF", "UTF8" ) ; EXIT
       CASE "RU866"  ; hb_langNew( cLangID, "RU866" , "RUUTF", "UTF8" ) ; EXIT
-      CASE "RUKOI"  ; hb_langNew( cLangID, "RUKOI8", "RUUTF", "UTF8" ) ; EXIT
       CASE "RUKOI8" ; hb_langNew( cLangID, "RUKOI8", "RUUTF", "UTF8" ) ; EXIT
       CASE "RUWIN"  ; hb_langNew( cLangID, "RU1251", "RUUTF", "UTF8" ) ; EXIT
       CASE "SK852"  ; hb_langNew( cLangID, "SK852" , "SKUTF", "UTF8" ) ; EXIT
@@ -124,7 +123,6 @@ FUNCTION hb_langSelect( cLangID )
       CASE "TRWIN"  ; hb_langNew( cLangID, "TRWIN" , "TRUTF", "UTF8" ) ; EXIT
       CASE "UA866"  ; hb_langNew( cLangID, "UA866" , "UAUTF", "UTF8" ) ; EXIT
 //    CASE "UADOS"  ; hb_langNew( cLangID, "?????" , "UAUTF", "UTF8" ) ; EXIT
-      CASE "UAKOI"  ; hb_langNew( cLangID, "UAKOI8", "UAUTF", "UTF8" ) ; EXIT
       CASE "UAKOI8" ; hb_langNew( cLangID, "UAKOI8", "UAUTF", "UTF8" ) ; EXIT
       CASE "UAWIN"  ; hb_langNew( cLangID, "UA1125", "UAUTF", "UTF8" ) ; EXIT
       CASE "ZHB5"   ; hb_langNew( cLangID, "BIG5"  , "ZHUTF", "UTF8" ) ; EXIT