1 files changed, 2 insertions, 0 deletions

diff --git a/src/print.c b/src/print.c
index 151a193076d..38e82488b3c 100644
--- a/src/print.c
+++ b/src/print.c
@@ -775,6 +775,8 @@ A printed representation of an object is text which describes that object.  */)
   PRINTFINISH;
   set_buffer_internal (XBUFFER (Vprin1_to_string_buffer));
   object = Fbuffer_string ();
+  if (SBYTES (object) == SCHARS (object))
+    STRING_SET_UNIBYTE (object);
 
   Ferase_buffer ();
   set_buffer_internal (old);