1 files changed, 2 insertions, 2 deletions

diff --git a/src/print.c b/src/print.c
index ffa8a9b1b48..4a8c3fda319 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1697,11 +1697,11 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
           if (escapeflag)
             {
               strout ("#<process ", -1, -1, printcharfun);
-              print_string (PGET (XPROCESS (obj), name), printcharfun);
+              print_string (XPROCESS (obj)->name, printcharfun);
               PRINTCHAR ('>');
             }
           else
-            print_string (PGET (XPROCESS (obj), name), printcharfun);
+            print_string (XPROCESS (obj)->name, printcharfun);
         }
       else if (BOOL_VECTOR_P (obj))
         {