Index: /trunk/ccl/compiler/PPC/ppc-disassemble.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc-disassemble.lisp	(revision 289)
+++ /trunk/ccl/compiler/PPC/ppc-disassemble.lisp	(revision 290)
@@ -311,5 +311,5 @@
 
 
-(defun ppc-Xdisassemble (fn-vector &key (for-lap nil) (stream *debug-io*))
+(defun ppc-Xdisassemble (fn-vector &key (for-lap nil) (stream *standard-output*))
   (print-ppc-instructions stream (function-to-dll-header fn-vector) 
                           (if for-lap (list (uvref fn-vector (- (uvsize fn-vector) 2)))))