Index: /trunk/ccl/lib/streams.lisp
===================================================================
--- /trunk/ccl/lib/streams.lisp	(revision 5203)
+++ /trunk/ccl/lib/streams.lisp	(revision 5204)
@@ -40,5 +40,5 @@
           (let* ((ioblock (basic-stream-ioblock input-stream)))
             (with-ioblock-input-locked (ioblock)
-              (%ioblock-read-line ioblock)))
+              (funcall (ioblock-read-line-function ioblock) ioblock)))
           (stream-read-line input-stream))
       (if eof