diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 702fab36d2b..5ffd0174b7b 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -715,7 +715,7 @@ DEFAULT is the coding system to use by default in the query."
 	    (let ((pos (point))
 		  (fill-prefix "  "))
 	      (dolist (x (append rejected unsafe))
-		(princ "  ") (princ (car x)))
+		(princ "  ") (princ x))
 	      (insert "\n")
 	      (fill-region-as-paragraph pos (point)))
 	    (when rejected