diff --git a/assembly/ppc/arith.lisp b/assembly/ppc/arith.lisp
index af9df7c519b89f32a73a8572f0160e98e3a69c80..8e4f7dd9533b2dff6b6d7446a7417f4a67bc6627 100644
--- a/assembly/ppc/arith.lisp
+++ b/assembly/ppc/arith.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/ppc/arith.lisp,v 1.7 2005/12/11 20:30:45 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/ppc/arith.lisp,v 1.8 2005/12/12 00:46:06 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -58,11 +58,12 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FUN
-  (inst lwz lip null-tn (static-function-offset 'two-arg-+))
+  (inst lwz code-tn null-tn (static-function-offset 'two-arg-+))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst mr cfp-tn csp-tn)
-  (inst j lip (- (* function-code-offset word-bytes) function-pointer-type))
+  (inst j code-tn
+	(- (* function-code-offset word-bytes) function-pointer-type))
 
   DONE
   (move res temp))
@@ -106,11 +107,12 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FUN
-  (inst lwz lip null-tn (static-function-offset 'two-arg--))
+  (inst lwz code-tn null-tn (static-function-offset 'two-arg--))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst mr cfp-tn csp-tn)
-  (inst j lip (- (* function-code-offset word-bytes) function-pointer-type))
+  (inst j code-tn
+	(- (* function-code-offset word-bytes) function-pointer-type))
 
   DONE
   (move res temp))
@@ -183,11 +185,12 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FUN
-  (inst lwz lip null-tn (static-function-offset 'two-arg-*))
+  (inst lwz code-tn null-tn (static-function-offset 'two-arg-*))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst mr cfp-tn csp-tn)
-  (inst j lip (- (* function-code-offset word-bytes) function-pointer-type))
+  (inst j code-tn
+	(- (* function-code-offset word-bytes) function-pointer-type))
   
   LOW-FITS-IN-FIXNUM
   (move res lo))
@@ -315,11 +318,11 @@
           (inst beq DO-COMPARE)
 	  
 	  DO-STATIC-FN
-	  (inst lwz lip null-tn (static-function-offset ',static-fn))
+	  (inst lwz code-tn null-tn (static-function-offset ',static-fn))
 	  (inst li nargs (fixnumize 2))
 	  (inst mr ocfp cfp-tn)
 	  (inst mr cfp-tn csp-tn)
-	  (inst j lip
+	  (inst j code-tn
 	        (- (* function-code-offset word-bytes) function-pointer-type)) 
 	  
 	  DO-COMPARE
@@ -361,11 +364,11 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FN
-  (inst lwz lip null-tn (static-function-offset 'eql))
+  (inst lwz code-tn null-tn (static-function-offset 'eql))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst mr cfp-tn csp-tn)
-  (inst j lip (- (* function-code-offset word-bytes) function-pointer-type))
+  (inst j code-tn (- (* function-code-offset word-bytes) function-pointer-type))
 
   RETURN-T
   (load-symbol res t))
@@ -397,11 +400,12 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FN
-  (inst lwz lip null-tn (static-function-offset 'two-arg-=))
+  (inst lwz code-tn null-tn (static-function-offset 'two-arg-=))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst mr cfp-tn csp-tn)
-  (inst j lip (- (* function-code-offset word-bytes) function-pointer-type))
+  (inst j code-tn
+	(- (* function-code-offset word-bytes) function-pointer-type))
 
   RETURN-T
   (load-symbol res t))
@@ -431,11 +435,12 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FN
-  (inst lwz lip null-tn (static-function-offset 'two-arg-=))
+  (inst lwz code-tn null-tn (static-function-offset 'two-arg-=))
   (inst li nargs (fixnumize 2))
   (inst mr ocfp cfp-tn)
   (inst mr cfp-tn csp-tn)
-  (inst j lip (- (* function-code-offset word-bytes) function-pointer-type))
+  (inst j code-tn
+	(- (* function-code-offset word-bytes) function-pointer-type))
 
   RETURN-NIL
   (inst mr res null-tn))