(else
	  (let ((this-char (the-failure)))
	     (if (not (eof-object? this-char))
		 (begin
		    (print #\newline "----")
		    (display* "Ligne " *LINE-NUMBER*)
		    (print " the wrong character : "
			   this-char " its ASCII code : "
			   (char->integer this-char))))))