Index: /trunk/ccl/level-1/l1-error-system.lisp
===================================================================
--- /trunk/ccl/level-1/l1-error-system.lisp	(revision 299)
+++ /trunk/ccl/level-1/l1-error-system.lisp	(revision 300)
@@ -335,5 +335,5 @@
 	     (format s "Not an integer string: ~s" (slot-value c 'string)))))
 
-(define-condition reader-error (parse-error) ())
+(define-condition reader-error (parse-error stream-error) ())
 (define-condition end-of-file (stream-error) ()
   (:report (lambda (c s)