diff --git a/src/lisp/ppc-assem.S b/src/lisp/ppc-assem.S
index d816e8b16a2be84955d694d44b9187cb591201af..5bb6ed47c9142fc5effadf6d79e915401ecf74d5 100644
--- a/src/lisp/ppc-assem.S
+++ b/src/lisp/ppc-assem.S
@@ -236,7 +236,7 @@ x:
 	 * The 6 is vm:function-code-offset, the 4 is
 	 * the number of bytes in a lispobj.
 	 */
-	addi reg_LIP,reg_CODE,6*4-type_FunctionPointer
+	addi reg_LIP,reg_CODE,FUNCTION_CODE_OFFSET
 	mtctr reg_LIP
 	slwi reg_NARGS,reg_NL2,2
 	bctr