1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el
index eab80dbda57..d7baabb29c8 100644
--- a/lisp/international/iso-cvt.el
+++ b/lisp/international/iso-cvt.el
@@ -858,7 +858,7 @@ Optional arg BUFFER is ignored (for use in `format-alist')."
     (define-key menu [translate-from] '("Translate from..." . iso-cvt-translate-from))
     (fset 'iso-cvt-translate-from translate-from-menu-map)
 
-    (dolist ((file-type (reverse format-alist)))
+    (dolist (file-type (reverse format-alist))
       (let ((name (car file-type))
             (str-name (cadr file-type)))
         (if (stringp str-name)