diff --git a/compiler/generic/new-genesis.lisp b/compiler/generic/new-genesis.lisp
index cb6cb741b14913f14c8334e5a6a3793889e5bf39..58fce47b1715acef2d7f0d28f3a891c8abbfd85d 100644
--- a/compiler/generic/new-genesis.lisp
+++ b/compiler/generic/new-genesis.lisp
@@ -4,7 +4,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.63 2003/10/24 02:56:59 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/new-genesis.lisp,v 1.64 2004/01/09 04:52:19 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2231,10 +2231,11 @@
 	    (test-tail "-SUBTYPE" "subtype_" 3)
 	    (test-head "TRACE-TABLE-" "tracetab_" 4)
 	    (test-tail "-SC-NUMBER" "sc_" 5)
-	    (test-head "TARGET-FOREIGN-" "" 6)
+	    (test-head "TARGET-FOREIGN" "" 6)
 	    (test-head "PSEUDO-ATOMIC-" "pseudo_atomic_" 7)
 	    (test-head "LOWTAG-" "lowtag_" 8)
-	    (test-head "TYPE-" "type_" 9)))))
+	    (test-head "TYPE-" "type_" 9)
+	    (test-tail "-SPACE-START" "SpaceStart_" 10)))))
     (setf constants
 	  (sort constants
 		#'(lambda (const1 const2)
diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp
index 58fe4216276003ea4cea48073f313b8b42d669d6..d41e56b4320826c40833e127995c99cb2b177077 100644
--- a/compiler/sparc/parms.lisp
+++ b/compiler/sparc/parms.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.49 2003/12/02 17:40:42 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.50 2004/01/09 04:52:19 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -192,12 +192,12 @@
 
 ;;; Where to put the different spaces.  Must match the C code!
 ;;; 
-(defparameter target-read-only-space-start #x10000000)
-(defparameter target-static-space-start    #x28000000)
-(defparameter target-dynamic-space-start   #x40000000)
+(defconstant target-read-only-space-start #x10000000)
+(defconstant target-static-space-start    #x28000000)
+(defconstant target-dynamic-space-start   #x40000000)
 
 ;; This better match the value in sparc-validate.h!
-(defparameter target-foreign-linkage-space-start #x0f800000)
+(defconstant target-foreign-linkage-space-start #x0f800000)
 ;; This better agree with what sparc-arch.c thinks it is!  Right now,
 ;; it's 4 instructions, so 16 bytes.
 (defconstant target-foreign-linkage-entry-size 16)
@@ -299,6 +299,9 @@
     lisp::*cmucl-core-path*
 
     ;; Gencgc
+    ;;
+    ;; Sparc doesn't use current-region-free-pointer, but we leave it
+    ;; here anyway.
     #+gencgc
     *current-region-free-pointer*
     #+gencgc