1 files changed, 3 insertions, 1 deletions

diff --git a/src/print.c b/src/print.c
index 7a2beb0beda..3bf0796c061 100644
--- a/src/print.c
+++ b/src/print.c
@@ -889,7 +889,9 @@ print (obj, printcharfun, escapeflag)
 
 #ifdef MULTI_SCREEN
     case Lisp_Screen:
-      strout ("#<screen ", -1, printcharfun);
+      strout (((XSCREEN (obj)->display.nothing == 0)
+               ? "#<dead screen " : "#<screen "),
+              -1, printcharfun);
       print_string (XSCREEN (obj)->name, printcharfun);
       sprintf (buf, " 0x%x", XFASTINT (XSCREEN (obj)));
       strout (buf, -1, printcharfun);