diff --git a/network.lisp b/network.lisp
index b7c0473..cc75d9b 100644
--- a/network.lisp
+++ b/network.lisp
@@ -25,7 +25,7 @@ address. Defaults to :SESSION."
          (stream (connect-via-address-string
                   (etypecase address
                     (symbol (ecase address
-                              (:session (osicat-posix:getenv "DBUS_SESSION_BUS_ADDRESS"))))
+                              (:session (sb-posix:getenv "DBUS_SESSION_BUS_ADDRESS"))))
                     (string address))))
          (con (make-instance 'dbus-connection
                              :stream stream)))
diff --git a/unix-transport.lisp b/unix-transport.lisp
index d9049af..9a0feb0 100644
--- a/unix-transport.lisp
+++ b/unix-transport.lisp
@@ -4,15 +4,16 @@
 ;;; This file is part of CL-DBUS. Look into LICENSE for license terms.
 
 (in-package :blitz.desktop.dbus)
+(require 'iolib)
 
 (deftransport unix (address)
   (handler-case
       (let ((abstract (server-address-value address "abstract"))
             (path (server-address-value address "path")))
-        (iolib.sockets:make-socket
+        (iolib:make-socket
          :address-family :local
          :external-format :ascii
-         :remote-filename (iolib.sockets:ensure-address
+         :remote-filename (iolib:ensure-address
                            (or abstract path)
                            :family :local
                            :abstract (if abstract