diff --git a/package.lisp b/package.lisp
index f801eda..7b8a4a4 100644
--- a/package.lisp
+++ b/package.lisp
@@ -43,6 +43,7 @@
            #:rod<
 
            ;; xstream.lisp
+           #:xstream
            #:make-xstream
            #:make-rod-xstream
            #:close-xstream
diff --git a/xstream.lisp b/xstream.lisp
index 5798ecd..5e3657c 100644
--- a/xstream.lisp
+++ b/xstream.lisp
@@ -256,9 +256,7 @@
 
 ;;; Underflow
 
-;;(defun read-runes (sequence input))
-
-(defun xstream-underflow (input)
+(defmethod xstream-underflow ((input xstream))
   (declare (type xstream input))
   ;; we are about to fill new data into the buffer, so we need to
   ;; adjust buffer-start.