diff --git a/TeXmacs/progs/fonts/font-old-menu.scm b/TeXmacs/progs/fonts/font-old-menu.scm
index 8f4fb4abdd..35c436b190 100644
--- a/TeXmacs/progs/fonts/font-old-menu.scm
+++ b/TeXmacs/progs/fonts/font-old-menu.scm
@@ -187,8 +187,8 @@
 		  ("SimYou" (make-with "font" "simyou")))
 	      (if (font-exists-in-tt? "ukai")
 		  ("UKai" (make-with "font" "ukai")))
-	      (if (font-exists-in-tt? "unbatang")
-		  ("Unbatang" (make-with "font" "unbatang")))
+	      (if (font-exists-in-tt? "UnBatang")
+		  ("UnBatang" (make-with "font" "unbatang")))
 	      (if (font-exists-in-tt? "uming")
 		  ("UMing" (make-with "font" "uming")))
 	      (if (font-exists-in-tt? "wqy-zenhei")
diff --git a/TeXmacs/progs/generic/document-menu.scm b/TeXmacs/progs/generic/document-menu.scm
index 65206763c0..52744cfb3b 100644
--- a/TeXmacs/progs/generic/document-menu.scm
+++ b/TeXmacs/progs/generic/document-menu.scm
@@ -231,8 +231,8 @@
               ("SimYou" (init-env "font" "simyou")))
           (if (font-exists-in-tt? "ukai")
               ("UKai" (init-env "font" "ukai")))
-          (if (font-exists-in-tt? "unbatang")
-              ("Unbatang" (init-env "font" "unbatang")))
+          (if (font-exists-in-tt? "UnBatang")
+              ("UnBatang" (init-env "font" "unbatang")))
           (if (font-exists-in-tt? "uming")
               ("UMing" (init-env "font" "uming")))
           (if (font-exists-in-tt? "wqy-zenhei")
@@ -357,8 +357,8 @@
       ("Batang" (init-font "batang")))
   (if (font-exists-in-tt? "Gulim")
       ("Gulim" (init-font "gulim")))
-  (if (font-exists-in-tt? "unbatang")
-      ("Unbatang" (init-font "unbatang"))))
+  (if (font-exists-in-tt? "UnBatang")
+      ("UnBatang" (init-font "unbatang"))))
 
 (menu-bind document-short-font-menu
   ("Default" (init-default-font))
diff --git a/src/Graphics/Fonts/font.cpp b/src/Graphics/Fonts/font.cpp
index b41a114912..18de397e49 100644
--- a/src/Graphics/Fonts/font.cpp
+++ b/src/Graphics/Fonts/font.cpp
@@ -629,7 +629,6 @@ default_korean_font_name () {
   if (tt_font_exists ("batang")) return "Batang";
 #endif
 
-  if (tt_font_exists ("unbatang")) return "UnBatang";
   if (tt_font_exists ("UnBatang")) return "UnBatang";
   if (tt_font_exists ("Gulim")) return "gulim";
   return "roman";