cl-stream/cl-stream

diff --git a/cl-stream.lisp b/cl-stream.lisp
index 7e5a3b6..7edcab6 100644
--- a/cl-stream.lisp
+++ b/cl-stream.lisp
@@ -258,7 +258,7 @@ Returns NIL if successful, or
   (check-if-open stream)
   (if (< (stream-input-index stream) (stream-input-length stream))
       (stream-read-element-from-buffer stream)
-      (ecase (stream-fill-input-buffer stream)
+      (case (stream-fill-input-buffer stream)
 	((nil) (stream-read-element-from-buffer stream))
 	((:eof) (values nil :eof))
 	((:non-blocking) (values nil :non-blocking))