diff --git a/lisp/hppa-assem.S b/lisp/hppa-assem.S
index 3374f1246a94ff0fac3c104359630583e1fbc5dc..6221dfc0eaaddb8b053542f6414c5b8412258f78 100644
--- a/lisp/hppa-assem.S
+++ b/lisp/hppa-assem.S
@@ -257,7 +257,7 @@ closure_tramp
 	/* reg_FDEFN holds the fdefn object. */
 	ldw	FDEFN_FUNCTION_OFFSET(0,reg_FDEFN),reg_LEXENV
 	ldw	CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_L0
-	addi	FUNCTION_HEADER_CODE_OFFSET, reg_L0, reg_LIP
+	addi	FUNCTION_CODE_OFFSET, reg_L0, reg_LIP
 	bv,n	0(reg_LIP)
 
 	.EXPORT undefined_tramp
diff --git a/lisp/hppa-assem.s b/lisp/hppa-assem.s
index 3374f1246a94ff0fac3c104359630583e1fbc5dc..6221dfc0eaaddb8b053542f6414c5b8412258f78 100644
--- a/lisp/hppa-assem.s
+++ b/lisp/hppa-assem.s
@@ -257,7 +257,7 @@ closure_tramp
 	/* reg_FDEFN holds the fdefn object. */
 	ldw	FDEFN_FUNCTION_OFFSET(0,reg_FDEFN),reg_LEXENV
 	ldw	CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_L0
-	addi	FUNCTION_HEADER_CODE_OFFSET, reg_L0, reg_LIP
+	addi	FUNCTION_CODE_OFFSET, reg_L0, reg_LIP
 	bv,n	0(reg_LIP)
 
 	.EXPORT undefined_tramp
diff --git a/lisp/mips-assem.S b/lisp/mips-assem.S
index f2ad86a2f57f2c8a381c90ef19cb03b02ea17d7b..df9b7f53f1e3d0f7bcdee4a63fcb365658491ae9 100644
--- a/lisp/mips-assem.S
+++ b/lisp/mips-assem.S
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.2 1992/08/16 13:41:50 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.3 1993/01/10 17:27:07 wlott Exp $ */
 #include <machine/regdef.h>
 
 #include "internals.h"
@@ -262,7 +262,7 @@ undefined_tramp:
 closure_tramp:
         lw      reg_LEXENV, FDEFN_FUNCTION_OFFSET(reg_FDEFN)
         lw      reg_L0, CLOSURE_FUNCTION_OFFSET(reg_LEXENV)
-        addu    reg_LIP, reg_L0, FUNCTION_HEADER_CODE_OFFSET
+        addu    reg_LIP, reg_L0, FUNCTION_CODE_OFFSET
         j       reg_LIP
         .end    closure_tramp
 
diff --git a/lisp/sparc-assem.S b/lisp/sparc-assem.S
index 85e5c0e9fefd6481bdd70e63d9e6f1d40045a183..4e22039bf63c2bd073d42952e389dd04f54717cf 100644
--- a/lisp/sparc-assem.S
+++ b/lisp/sparc-assem.S
@@ -76,7 +76,7 @@ _call_into_lisp:
         /* Indirect closure */
         ld      [reg_LEXENV+CLOSURE_FUNCTION_OFFSET], reg_CODE
 
-        jmp     reg_CODE+FUNCTION_HEADER_CODE_OFFSET
+        jmp     reg_CODE+FUNCTION_CODE_OFFSET
         nop
 
         .align  8
@@ -201,7 +201,7 @@ _undefined_tramp:
 	.align	4
 1:
 	ld	[reg_FDEFN+FDEFN_RAW_ADDR_OFFSET], reg_CODE
-	jmp	reg_CODE+FUNCTION_HEADER_CODE_OFFSET
+	jmp	reg_CODE+FUNCTION_CODE_OFFSET
 	nop
 
 	.global	_closure_tramp
@@ -217,7 +217,7 @@ _closure_tramp:
 
 	ld	[reg_FDEFN+FDEFN_FUNCTION_OFFSET], reg_LEXENV
 	ld	[reg_LEXENV+CLOSURE_FUNCTION_OFFSET], reg_CODE
-	jmp	reg_CODE+FUNCTION_HEADER_CODE_OFFSET
+	jmp	reg_CODE+FUNCTION_CODE_OFFSET
 	nop