diff --git a/lisp/language/thai-util.el b/lisp/language/thai-util.el
index 671e61fe09b..c50564a808c 100644
--- a/lisp/language/thai-util.el
+++ b/lisp/language/thai-util.el
@@ -28,8 +28,8 @@
 (defun setup-thai-environment ()
   "Setup multilingual environment (MULE) for Thai."
   (interactive)
-  (setup-8-bit-environment 'thai-tis620 'thai-tis620
-			   '("Thai" . "quail-thai")))
+  (setup-8-bit-environment "Thai" 'thai-tis620 'thai-tis620
+			   "thai-kesmanee"))
 
 ;; Setting information of Thai characters.