Index: /trunk/ccl/lib/describe.lisp
===================================================================
--- /trunk/ccl/lib/describe.lisp	(revision 820)
+++ /trunk/ccl/lib/describe.lisp	(revision 821)
@@ -2039,8 +2039,8 @@
 	 (ccl::with-toplevel-commands :tty-inspect
 	   (ccl::read-loop
-	    :prompt-function #'(lambda ()
+	    :prompt-function #'(lambda (stream)
 				 (if (eql level 0)
-				   (format t "~&Inspect> ")
-				   (format t "~&Inspect ~d> " level))))))
+				   (format stream "~&Inspect> ")
+				   (format stream "~&Inspect ~d> " level))))))
      (exit-inspector () (terpri *debug-io*)))))