diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43e12411d97..9b9e5645dee 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-05-06  Kenichi Handa  <handa@etlken2>
+
+	* arc-mode.el (archive-set-buffer-as-visiting-file): Use
+	after-insert-file-set-coding, not
+	after-insert-file-set-buffer-file-coding-system.
+
 2003-05-05  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* uniquify.el (uniquify-buffer-name-style)
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 6092bea6da0..aee0ff7b412 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1553,8 +1553,8 @@ The value is non-nil if there were no errors, nil if errors."
       ;; unless the file itself forces unibyte with -*-coding: raw-text;-*-
       (set-buffer-multibyte t)
       (insert-file-contents filename)
-      ;; Mimic the way after-insert-file-set-buffer-file-coding-system
-      ;; can make the buffer unibyte when visiting this file.
+      ;; Mimic the way after-insert-file-set-coding can make the
+      ;; buffer unibyte when visiting this file.
       (when (or (eq last-coding-system-used 'no-conversion)
 		(eq (coding-system-type last-coding-system-used) 5))
 	;; For coding systems no-conversion and raw-text...,