--- a/src/alloc.c	Mon Aug 13 09:17:27 2007 +0200
+++ b/src/alloc.c	Mon Aug 13 09:18:39 2007 +0200
@@ -2614,7 +2614,7 @@
   }
 
   write(fd, WARNING, strlen(WARNING));
-  sprintf(define_PURESIZE, "# define PURESIZE_ADJUSTMENT %ld\n",
+  sprintf(define_PURESIZE, "# define PURESIZE_ADJUSTMENT (%ld)\n",
 	  puresize - RAW_PURESIZE);
   write(fd, define_PURESIZE, strlen(define_PURESIZE));
   close(fd);
@@ -2631,11 +2631,9 @@
       CONST long report_round = 5000;
 
       message ("\n****\tPure Lisp storage exhausted!\n"
- "\tAn additional %ld bytes will guarantee enough pure space;\n"
- "\ta smaller increment may work (due to structure-sharing).\n"
+"\tPurespace usage: %ld of %ld\n"
  "****",
-               (((pure_lossage + report_round - 1)
-                 / report_round) * report_round));
+               PURESIZE+pure_lossage, PURESIZE);
       if (die_if_pure_storage_exceeded) {
 	PURESIZE_h(PURESIZE + pure_lossage);
 	rc = -1;