Index: /branches/ide-1.0/ccl/lib/describe.lisp
===================================================================
--- /branches/ide-1.0/ccl/lib/describe.lisp	(revision 6619)
+++ /branches/ide-1.0/ccl/lib/describe.lisp	(revision 6620)
@@ -1227,5 +1227,5 @@
 (defun compute-disassembly-lines (f &optional (function (inspector-object f)))
   (if (functionp function)
-    (let* ((info (and (disasm-p f) #+ppc-target (list-to-vector (ccl::disassemble-list function))))
+    (let* ((info (and (disasm-p f)  (list-to-vector (ccl::disassemble-list function))))
            (length (length info))
            (last-pc (if info (car (svref info (1- length))) 0)))