Index: /trunk/source/compiler/PPC/ppc2.lisp
===================================================================
--- /trunk/source/compiler/PPC/ppc2.lisp	(revision 15041)
+++ /trunk/source/compiler/PPC/ppc2.lisp	(revision 15042)
@@ -5273,5 +5273,5 @@
               (setq no-regs (%ilogbitp $fbitnoregs fbits)))
         (multiple-value-setq (pregs reglocatives) 
-          (nx2-afunc-allocate-global-registers (unless no-regs *ppc2-nvrs*)))
+          (nx2-afunc-allocate-global-registers afunc (unless no-regs *ppc2-nvrs*)))
         (@ (backend-get-next-label)) ; generic self-reference label, should be label #1
         (when keys ;; Ensure keyvect is the first immediate