diff --git a/compiler/backend.lisp b/compiler/backend.lisp
index 8b3f6ab4bc838e347fe3084c7903056132026391..f5af2fc6741da020aa4aeb59a7e074af1f7e488a 100644
--- a/compiler/backend.lisp
+++ b/compiler/backend.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/backend.lisp,v 1.29 1997/11/21 12:26:50 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/backend.lisp,v 1.30 1998/01/22 00:04:18 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -85,7 +85,7 @@
   ;; From NLX.LISP
   make-nlx-sp-tn
   make-dynamic-state-tns
-  #+x86 make-nlx-entry-argument-start-location
+  #+(or x86 sparc) make-nlx-entry-argument-start-location
   
   ;; From SUPPORT.LISP
   generate-call-sequence
diff --git a/compiler/ir2tran.lisp b/compiler/ir2tran.lisp
index 9e5f5bcaffee1de0d456621dc58a6c6d3b241c73..de7ca26826d6d2c15b90eed3636ab7ba429a1186 100644
--- a/compiler/ir2tran.lisp
+++ b/compiler/ir2tran.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/ir2tran.lisp,v 1.63 1998/01/08 05:09:42 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.64 1998/01/22 00:04:20 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1607,8 +1607,8 @@
 	 (2cont (continuation-info cont))
 	 (2info (nlx-info-info info))
 	 (top-loc (ir2-nlx-info-save-sp 2info))
-	 (start-loc #-x86 (make-old-fp-passing-location t)
-		    #+x86 (make-nlx-entry-argument-start-location))
+	 (start-loc #-(or x86 sparc) (make-old-fp-passing-location t)
+		    #+(or x86 sparc) (make-nlx-entry-argument-start-location))
 	 (count-loc (make-argument-count-location))
 	 (target (ir2-nlx-info-target 2info)))