diff --git a/code/foreign.lisp b/code/foreign.lisp
index 57245c217af3a26d5c975819b2b686c1eed151e7..d3ad4af5a8f6c1a92a1eb3adc6844148662d47d6 100644
--- a/code/foreign.lisp
+++ b/code/foreign.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.12 1992/07/17 16:03:41 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.13 1993/02/07 21:17:12 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,6 +18,12 @@
 (in-package "SYSTEM")
 (import 'alien:load-foreign)
 
+#+sparc (defconstant foreign-segment-start #xe0000000)
+#+sparc (defconstant foreign-segment-size  #x00100000)
+
+#+pmax (defconstant foreign-segment-start #x00C00000)
+#+pmax (defconstant foreign-segment-size  #x00400000)
+
 (defvar *previous-linked-object-file* nil)
 (defvar *foreign-segment-free-pointer* foreign-segment-start)
 
diff --git a/code/mach-os.lisp b/code/mach-os.lisp
index c40f6bb923811f63ffeb88bfa10ff559f11011fe..f92a2c852219485694a89fb806e0fe6f7b6100bc 100644
--- a/code/mach-os.lisp
+++ b/code/mach-os.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.9 1992/07/03 00:09:31 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.10 1993/02/07 21:17:31 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,9 +24,6 @@
 (pushnew :mach *features*)
 (setq *software-type* "MACH/4.3BSD")
 
-(defconstant foreign-segment-start #x00C00000)
-(defconstant foreign-segment-size  #x00400000)
- 
 (defun software-version ()
   "Returns a string describing version of the supporting software."
   (string-trim '(#\newline)