diff --git a/src/gcfinal.c b/src/gcfinal.c
index cd3075c..3ea1565 100644
--- a/src/gcfinal.c
+++ b/src/gcfinal.c
@@ -536,13 +536,15 @@ void printarrayblock(LispPTR base) {
   printf("          Length: %d cells.\n\n", bbase->arlen);
 
   addr = ((LispPTR *)bbase) - 20;
-  for (; addr < (LispPTR *)bbase; addr++) printf("0x%x	%8x\n", addr, *addr);
-  printf("0x%x	%8x <- array header\n", addr, *addr++);
-  for (; addr < (LispPTR *)bbase + 20; addr++) printf("0x%x	%8x\n", addr, *addr);
+  for (; addr < (LispPTR *)bbase; addr++) printf("%p	%8x\n", addr, *addr);
+  printf("%p	%8x <- array header\n", addr, *addr);
+  addr++;
+  for (; addr < (LispPTR *)bbase + 20; addr++) printf("%p	%8x\n", addr, *addr);
   printf(". . .\n");
 
   addr = ((LispPTR *)btrailer) - 20;
-  for (; addr < (LispPTR *)btrailer; addr++) printf("0x%x	%8x\n", addr, *addr);
-  printf("0x%x	%8x <- array trailer\n", addr, *addr++);
-  for (; addr < (LispPTR *)btrailer + 20; addr++) printf("0x%x	%8x\n", addr, *addr);
+  for (; addr < (LispPTR *)btrailer; addr++) printf("%p	%8x\n", addr, *addr);
+  printf("%p	%8x <- array trailer\n", addr, *addr);
+  addr++;
+  for (; addr < (LispPTR *)btrailer + 20; addr++) printf("%p	%8x\n", addr, *addr);
 }