diff --git a/src/ChangeLog b/src/ChangeLog
index 17c31844458..517b3129a22 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2014-02-03  Dmitry Antipov  <dmantipov@yandex.ru>
+
+	* print.c (Fexternal_debugging_output): Add cast to pacify
+	--enable-gcc-warnings.
+
 2014-02-02  Martin Rudalics  <rudalics@gmx.at>
 
 	* w32fns.c (Fx_create_frame): Process frame alpha earlier.
diff --git a/src/print.c b/src/print.c
index f6d2baa6cd1..475be9ec285 100644
--- a/src/print.c
+++ b/src/print.c
@@ -731,7 +731,7 @@ to make it write to the debugging output.  */)
       unsigned char mbstr[MAX_MULTIBYTE_LENGTH];
       ptrdiff_t len = CHAR_STRING (ch, mbstr);
       Lisp_Object encoded_ch =
-	ENCODE_SYSTEM (make_multibyte_string (mbstr, 1, len));
+	ENCODE_SYSTEM (make_multibyte_string ((char *) mbstr, 1, len));
 
       fwrite (SSDATA (encoded_ch), SBYTES (encoded_ch), 1, stderr);
 #ifdef WINDOWSNT