diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index a265f42a414..ae1267b4fe0 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -40,8 +40,7 @@
 
   (setq-default buffer-file-coding-system 'iso-2022-7bit)
 
-  (setq default-input-method  "tibetan-wylie")
-  (setq-default default-input-method  "tibetan-wylie"))
+  (setq default-input-method  "tibetan-wylie"))
 
 ;;; This function makes a transcription string for
 ;;; re-composing a character.