Index: /trunk/ccl/level-0/PPC/ppc-misc.lisp
===================================================================
--- /trunk/ccl/level-0/PPC/ppc-misc.lisp	(revision 5384)
+++ /trunk/ccl/level-0/PPC/ppc-misc.lisp	(revision 5385)
@@ -983,5 +983,5 @@
 (defppclapfunction %safe-get-ptr ((src arg_y) (dest arg_z))
   (check-nargs 2)
-  (macptr-ptr imm0 arg_z)
+  (macptr-ptr imm0 src)
   (str imm0 target::tcr.safe-ref-address target::rcontext)
   (ldr imm0 0 imm0)                     ; may fault