cl-stream/utf8-stream

diff --git a/babel-stream.lisp b/babel-stream.lisp
index 3a6b7b4..258c41b 100644
--- a/babel-stream.lisp
+++ b/babel-stream.lisp
@@ -34,6 +34,9 @@
   (assert (equal '(unsigned-byte 8)
                  (stream-element-type (stream-underlying-stream stream)))))
 
+(defmethod stream-element-type ((stream babel-stream))
+  'character)
+
 (defclass babel-input-stream (babel-stream input-stream)
   ())