diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index f4938cf9a01..31d36f81740 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -2687,7 +2687,9 @@ This checks also `file-name-as-directory', `file-name-directory',
 	      (let ((bfcs buffer-file-coding-system))
 		(should (buffer-modified-p))
 		(should (null (save-buffer)))
-		(should (eq buffer-file-coding-system bfcs)))))
+		(should
+                 (eq (coding-system-get buffer-file-coding-system :mime-charset)
+                     (coding-system-get  bfcs :mime-charset))))))
 
 	;; Cleanup.
 	(ignore-errors (delete-file tmp-name))))))