Index: /trunk/ccl/compiler/PPC/ppc2.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 5857)
+++ /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 5858)
@@ -8284,5 +8284,5 @@
                      (setq reg (ppc2-unboxed-integer-arg-to-reg seg valform valreg spec)))
                    (! set-c-arg reg nextarg))))))
-          (incf nextarg)))
+          (unless (eq spec :registers)(incf nextarg))))
       (do* ((fpreg ppc::fp1 (1+ fpreg))
             (reloads (nreverse fp-loads) (cdr reloads)))