Index: /trunk/ccl/lib/backtrace-lds.lisp
===================================================================
--- /trunk/ccl/lib/backtrace-lds.lisp	(revision 214)
+++ /trunk/ccl/lib/backtrace-lds.lisp	(revision 215)
@@ -604,6 +604,6 @@
     (lap-instruction
      (let* ((opcode (lap-instruction-opcode instr))
-            (opcode-p (typep opcode 'ppc32::opcode))
-            (name (if opcode-p (ppc32::opcode-name opcode) opcode))
+            (opcode-p (typep opcode 'ppc::opcode))
+            (name (if opcode-p (arch::opcode-name opcode) opcode))
             (pc (lap-instruction-address instr))
             (operands (lap-instruction-parsed-operands instr)))
@@ -620,5 +620,5 @@
                    (let* ((prev-instr (require-type (lap-instruction-pred instr)
                                                     'lap-instruction))
-                          (prev-name (ppc32::opcode-name (lap-instruction-opcode prev-instr)))
+                          (prev-name (arch::opcode-name (lap-instruction-opcode prev-instr)))
                           (prev-operands (lap-instruction-parsed-operands prev-instr)))
                      ; Maybe we should recognize the other possible outputs of ppc2-lwi, but I
@@ -652,5 +652,5 @@
              ((equalp name "b")
               (values :branch (branch-label-address instr (car (last operands))) nil))
-             ((and opcode-p (eql (ppc32::opcode-majorop opcode) 16))
+             ((and opcode-p (eql (arch::opcode-majorop opcode) 16))
               (values :branch (branch-label-address instr (car (last operands))) (+ pc 4)))
              (t :regular))))))