Index: /trunk/ccl/lib/backtrace-lds.lisp
===================================================================
--- /trunk/ccl/lib/backtrace-lds.lisp	(revision 537)
+++ /trunk/ccl/lib/backtrace-lds.lisp	(revision 538)
@@ -604,5 +604,5 @@
     (lap-instruction
      (let* ((opcode (lap-instruction-opcode instr))
-            (opcode-p (typep opcode 'ppc::opcode))
+            (opcode-p (typep opcode 'arch::opcode))
             (name (if opcode-p (arch::opcode-name opcode) opcode))
             (pc (lap-instruction-address instr))