diff --git a/lisp/language/greek.el b/lisp/language/greek.el
index 8cb8f45e828..35eae190d16 100644
--- a/lisp/language/greek.el
+++ b/lisp/language/greek.el
@@ -39,8 +39,8 @@
 (defun setup-greek-environment ()
   "Setup multilingual environment (MULE) for Greek."
   (interactive)
-  (setup-8-bit-environment 'greek-iso8859-7 'greek-iso-8bit
-			   '("Greek" . "quail-greek")))
+  (setup-8-bit-environment "Greek" 'greek-iso8859-7 'greek-iso-8bit
+			   "greek"))
 
 (set-language-info-alist
  "Greek" '((setup-function . setup-greek-environment)