(doprnt1): Add a cast.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/doprnt.c b/src/doprnt.c
index ab3627768ba..07ce5b88ed3 100644
--- a/src/doprnt.c
+++ b/src/doprnt.c
@@ -200,7 +200,7 @@ doprnt1 (lispstrings, buffer, bufsize, format, format_end, nargs, args)
                 minlen = atoi (&fmtcpy[1]);
               if (lispstrings)
                 {
-                  string = XSTRING (((Lisp_Object *) args)[cnt])->data;
+                  string = (char *) XSTRING (((Lisp_Object *) args)[cnt])->data;
                   tem = XSTRING (((Lisp_Object *) args)[cnt])->size;
                   cnt++;
                 }