RailsOnLisp/thot

diff --git a/thot-epoll.lisp b/thot-epoll.lisp
index 11dfd56..3eebbb0 100644
--- a/thot-epoll.lisp
+++ b/thot-epoll.lisp
@@ -136,10 +136,10 @@
   (error 'acceptor-error :agent acceptor))
 
 (defun make-worker (fd addr)
-  (let* ((request-stream (babel-input-stream (fd-input-stream fd)))
+  (let* ((request-stream (babel-input-stream (unistd-input-stream fd)))
          (reply-stream (babel-output-stream
                         (multi-buffered-output-stream
-                         (fd-output-stream fd))))
+                         (unistd-output-stream fd))))
          (request (make-instance 'request :stream request-stream))
          (reply (make-instance 'reply :stream reply-stream))
          (reader-cont (request-reader request reply #'request-cont)))