1 files changed, 2 insertions, 2 deletions

diff --git a/src/print.c b/src/print.c
index 63ef3e6279e..f3302daaea3 100644
--- a/src/print.c
+++ b/src/print.c
@@ -716,8 +716,8 @@ You can call print while debugging emacs, and pass it this function
 to make it write to the debugging output.  */)
   (Lisp_Object character)
 {
-  CHECK_CHARACTER (character);
-  putc ((int) XINT (character), stderr);
+  CHECK_NUMBER (character);
+  putc (XINT (character) & 0xFF, stderr);
 
 #ifdef WINDOWSNT
   /* Send the output to a debugger (nothing happens if there isn't one).  */