2 files changed, 3 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 8be43ce844b..fecd07da955 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -6,6 +6,7 @@
         * dired.c (file_name_completion_stat): Use DIRENTRY, not struct dirent.
         * fileio.c (read_non_regular, read_non_regular_quit): Pass Lisp_Object,
         as required by internal_condition_case_1.
+        * print.c (strout): Use const char* for arg PTR.
         * regex.c (bcmp_translate): Use RE_TRANSLATE_TYPE, not Lisp_Object.
         (analyse_first): Fix "const const".
         * sysdep.c (set_file_times): Use EMACS_TIME, not struct timeval.
diff --git a/src/print.c b/src/print.c
index 76ce467eed0..ea00a90d37b 100644
--- a/src/print.c
+++ b/src/print.c
@@ -350,7 +350,8 @@ printchar (unsigned int ch, Lisp_Object fun)
    to data in a Lisp string.  Otherwise that is not safe.  */
 
 static void
-strout (char *ptr, int size, int size_byte, Lisp_Object printcharfun, int multibyte)
+strout (const char *ptr, int size, int size_byte, Lisp_Object printcharfun,
+        int multibyte)
 {
   if (size < 0)
     size_byte = size = strlen (ptr);