diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 376e9726e4b..6d0c4fd430e 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -565,7 +565,7 @@ or a string."
 	(or input-method
 	    default-input-method
 	    (read-input-method-name "Input method: " nil t)))
-  (if (and input-method (symbolp input-method)
+  (if (and input-method (symbolp input-method))
       (setq input-method (symbol-name input-method)))
   (let ((current-input-method input-method))
     (read-string prompt initial-input nil nil t)))