Index: /trunk/ccl/level-1/l1-sysio.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sysio.lisp	(revision 5245)
+++ /trunk/ccl/level-1/l1-sysio.lisp	(revision 5246)
@@ -59,5 +59,6 @@
   (with-stream-ioblock-input (ioblock file-stream :speedy t)
     (setf (file-stream-external-format file-stream)
-	  (if (eq (%ioblock-peek-char ioblock) :eof)
+	  (if (eq (funcall (ioblock-peek-char-function ioblock) ioblock)
+                  :eof)
 	    :unix
 	    (let* ((inbuf (ioblock-inbuf ioblock))