Index: /trunk/ccl/xdump/heap-image.lisp
===================================================================
--- /trunk/ccl/xdump/heap-image.lisp	(revision 5168)
+++ /trunk/ccl/xdump/heap-image.lisp	(revision 5169)
@@ -97,5 +97,5 @@
 
 
-(defparameter *image-abi-version* 1010)
+(defparameter *image-abi-version* 1011)
 
 (defun write-image-file (pathname image-base spaces &optional (abi-version *image-abi-version*))
Index: /trunk/ccl/xdump/xfasload.lisp
===================================================================
--- /trunk/ccl/xdump/xfasload.lisp	(revision 5168)
+++ /trunk/ccl/xdump/xfasload.lisp	(revision 5169)
@@ -72,5 +72,5 @@
 (defparameter *xload-image-base-address* nil)
 
-(defparameter *xload-purespace-reserve* #x04000000)
+(defparameter *xload-purespace-reserve* nil)
 (defparameter *xload-static-space-address* (ash 1 12))
 (defparameter *xload-static-space-size* (ash 8 10))
@@ -94,4 +94,5 @@
   nil-relative-symbols
   static-space-init-function
+  purespace-reserve
 )
 
@@ -100,4 +101,7 @@
     (setq *xload-image-base-address*
           (backend-xload-info-image-base-address
+           *xload-target-backend*))
+    (setq *xload-purespace-reserve*
+          (backend-xload-info-purespace-reserve
            *xload-target-backend*))
     (setq *xload-readonly-space-address* *xload-image-base-address*)
@@ -1743,5 +1747,6 @@
             (*xload-target-fulltag-for-symbols* *xload-target-fulltag-for-symbols*)
             (*xload-target-fulltag-for-functions* *xload-target-fulltag-for-functions*)
-            (*xload-target-char-code-limit* *xload-target-char-code-limit*))
+            (*xload-target-char-code-limit* *xload-target-char-code-limit*)
+            (*xload-purespace-reserve* *xload-purespace-reserve*))
        (setup-xload-target-parameters)
        (let* ((*load-verbose* t)
Index: /trunk/ccl/xdump/xppcfasload.lisp
===================================================================
--- /trunk/ccl/xdump/xppcfasload.lisp	(revision 5168)
+++ /trunk/ccl/xdump/xppcfasload.lisp	(revision 5169)
@@ -111,4 +111,5 @@
    :nil-relative-symbols ppc::*ppc-nil-relative-symbols*
    :static-space-init-function 'ppc32-initialize-static-space
+   :purespace-reserve (ash 64 20)
 ))
 
@@ -134,4 +135,5 @@
    :nil-relative-symbols ppc::*ppc-nil-relative-symbols*
    :static-space-init-function 'ppc64-initialize-static-space
+   :purespace-reserve (ash 64 20)   
    ))
 
Index: /trunk/ccl/xdump/xx8664-fasload.lisp
===================================================================
--- /trunk/ccl/xdump/xx8664-fasload.lisp	(revision 5168)
+++ /trunk/ccl/xdump/xx8664-fasload.lisp	(revision 5169)
@@ -70,5 +70,5 @@
    :nil-relative-symbols x86::*x86-nil-relative-symbols*
    :static-space-init-function 'x8664-initialize-static-space
-      
+   :purespace-reserve (ash 1 30)      
 ))
 
@@ -90,5 +90,5 @@
    :nil-relative-symbols x86::*x86-nil-relative-symbols*
    :static-space-init-function 'x8664-initialize-static-space
-      
+   :purespace-reserve (ash 1 30)            
 ))
 
@@ -108,5 +108,5 @@
    :nil-relative-symbols x86::*x86-nil-relative-symbols*
    :static-space-init-function 'x8664-initialize-static-space
-      
+   :purespace-reserve (ash 1 30)            
 ))