diff --git a/src/lisp/coreparse.c b/src/lisp/coreparse.c
index efa53c236e9fd35932da7a9968a4582bccc8f98d..f150c5b83c4aae8f20b0f53423318d3186f12063 100644
--- a/src/lisp/coreparse.c
+++ b/src/lisp/coreparse.c
@@ -57,8 +57,13 @@ process_directory(int fd, long *ptr, int count)
 	switch (id) {
 	  case DYNAMIC_SPACE_ID:
 	      if (addr != (os_vm_address_t) dynamic_0_space
-		  && addr != (os_vm_address_t) dynamic_1_space)
-		  printf("Strange ... dynamic space lossage.\n");
+		  && addr != (os_vm_address_t) dynamic_1_space) {
+                  printf("Strange ... dynamic space lossage: addr = %p, expected %p or %p\n",
+                         addr,
+                         (os_vm_address_t) dynamic_0_space,
+                         (os_vm_address_t) dynamic_1_space);
+              }
+              
 	      current_dynamic_space = (lispobj *) addr;
 #if defined(ibmrt) || defined(i386) || defined(__x86_64)
 	      SetSymbolValue(ALLOCATION_POINTER, (lispobj) free_pointer);