Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 4819)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-arch.lisp	(revision 4820)
@@ -576,5 +576,5 @@
   register_cstack
   raise-thread-interrupt
-  metering-control
+  get-r-debug
   restore-soft-stack-limit
   egc-control
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 4819)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 4820)
@@ -649,5 +649,5 @@
   register_cstack
   raise-thread-interrupt
-  metering-control
+  get-r-debug
   restore-soft-stack-limit
   egc-control