kmx.io/cl-thot

diff --git a/thot-simple.lisp b/thot-simple.lisp
index b9a058f..2d68504 100644
--- a/thot-simple.lisp
+++ b/thot-simple.lisp
@@ -23,11 +23,11 @@
                       (socket:with-accept (clientfd) fd
                         (with-stream (request-stream
                                       (babel-input-stream
-                                       (fd-input-stream clientfd)))
+                                       (unistd-input-stream clientfd)))
                           (with-stream (reply-stream
                                         (babel-output-stream
                                          (multi-buffered-output-stream
-                                          (fd-output-stream clientfd))))
+                                          (unistd-output-stream clientfd))))
                             (request-loop request-stream reply-stream)))))))))
       #'acceptor-loop-simple-fun)))