Index: /branches/ide-1.0/ccl/lib/read.lisp
===================================================================
--- /branches/ide-1.0/ccl/lib/read.lisp	(revision 6648)
+++ /branches/ide-1.0/ccl/lib/read.lisp	(revision 6649)
@@ -17,8 +17,10 @@
 (in-package "CCL")
 
+
+                         
 (define-condition simple-reader-error (reader-error simple-error) ()
   (:report (lambda (c output-stream)
-             (format output-stream "Reader error on stream ~S:~%~?"
-                     (stream-error-stream c)
+             (format output-stream "Reader error on ~a:~%~?"
+                     (stream-error-context c)
                      (simple-condition-format-control c)
                      (simple-condition-format-arguments c)))))
@@ -46,5 +48,5 @@
 
 (defun read-internal (input-stream)
-   (read input-stream t nil t))
+  (read input-stream t nil t))