diff -urdN src/TeXmacs/progs/fonts/fonts-truetype.scm TeXmacs-1.0.6-src/TeXmacs/progs/fonts/fonts-truetype.scm
--- src/TeXmacs/progs/fonts/fonts-truetype.scm	2005-12-17 02:39:19.000000000 +0900
+++ TeXmacs-1.0.6-src/TeXmacs/progs/fonts/fonts-truetype.scm	2006-04-29 14:48:14.000000000 +0900
@@ -61,6 +61,7 @@
     ((ms-verdana rm $a italic $s $d) (truetype verdanai $s $d))
     ((ms-verdana rm $a $b $s $d) (truetype verdana $s $d))
 
+    ((gulim $v $a $b $s $d) (unicode gulim $s $d))
     ((fireflysung $v $a $b $s $d) (unicode fireflysung $s $d))
     ((ipa $v bold proportional $s $d) (unicode ipagp $s $d))
     ((ipa $v bold $b $s $d) (unicode ipag $s $d))
diff -urdN src/TeXmacs/progs/generic/document-edit.scm TeXmacs-1.0.6-src/TeXmacs/progs/generic/document-edit.scm
--- src/TeXmacs/progs/generic/document-edit.scm	2005-12-13 15:54:44.000000000 +0900
+++ TeXmacs-1.0.6-src/TeXmacs/progs/generic/document-edit.scm	2006-04-29 14:48:45.000000000 +0900
@@ -89,7 +89,9 @@
     (init-env "language" lan)
     (if (and cyr-after (not cyr-before)) (init-env "font" "cyrillic"))
     (if (and orient-after (not orient-before))
-	(init-env "font" (if (== lan "japanese") "ipa" "fireflysung")))))
+	(init-env "font" (if (== lan "japanese") "ipa" "fireflysung")))
+    (if (and orient-after (not orient-before))
+	(init-env "font" (if (== lan "korean") "gulim" "fireflysung")))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Main page layout
diff -urdN src/src/Resource/Dictionaries/dictionary.cpp TeXmacs-1.0.6-src/src/Resource/Dictionaries/dictionary.cpp
--- src/src/Resource/Dictionaries/dictionary.cpp	2005-12-17 20:47:13.000000000 +0900
+++ TeXmacs-1.0.6-src/src/Resource/Dictionaries/dictionary.cpp	2006-04-29 14:51:37.000000000 +0900
@@ -45,7 +45,7 @@
       {
 	string l= t[i][0]->label; if (is_quoted (l)) l= scm_unquote (l);
 	string r= t[i][1]->label; if (is_quoted (r)) r= scm_unquote (r);
-	if (to == "japanese") r= utf8_to_cork (r);
+	if (to == "japanese" || to == "korean") r= utf8_to_cork (r);
 	table (l)= r;
       }
 }
diff -urdN src/src/Window/X/x_font.cpp TeXmacs-1.0.6-src/src/Window/X/x_font.cpp
--- src/src/Window/X/x_font.cpp	2005-12-17 02:46:52.000000000 +0900
+++ TeXmacs-1.0.6-src/src/Window/X/x_font.cpp	2006-04-29 14:50:48.000000000 +0900
@@ -152,9 +152,9 @@
 	 (out_lan == "ukrainian")) &&
 	((ff == "cm") || (ff == "ec"))) {
       fam= "la" * fam (2, N(fam)); ff= "la"; if (sz<100) sz *= 100; }
-    if (out_lan == "chinese" || out_lan == "korean")
+    if (out_lan == "chinese")
       return unicode_font (this, "fireflysung", sz, dpi);
-    if (out_lan == "japanese") {
+    if (out_lan == "japanese" || out_lan == "korean") {
       tree modern_fn= tuple ("modern", "rm", "medium", "right");
       modern_fn << as_string (sz) << as_string (dpi);
       return find_font (this, modern_fn);