1 files changed, 3 insertions, 3 deletions

diff --git a/src/transport.lisp b/src/transport.lisp
index bb451c1..6906e6d 100644
--- a/src/transport.lisp
+++ b/src/transport.lisp
@@ -6,8 +6,8 @@
   (:import-from :cl+ssl)
   (:import-from :dex)
   (:import-from :log)
+  (:import-from :state :base-uri)
   (:import-from :ukkoclot/src/serializing :fixup-args :parse-value)
-  (:import-from :ukkoclot/src/state :bot-base-uri)
   (:local-nicknames
    (:jzon :com.inuoe.jzon))
   (:export :do-call))
@@ -47,9 +47,9 @@ See `do-call'."
              (error "TG error ~A: ~A ~:A"
                     error-code description parameters)))))))
 
-(defun do-call (bot method path out-type args)
+(defun do-call (method path out-type args)
   "Perform a HTTP call."
-  (let ((uri (concatenate 'string (bot-base-uri bot) path))
+  (let ((uri (concatenate 'string (base-uri) path))
         (args-encoded (fixup-args args)))
     (log:debug "~A .../~A ~S" method path args-encoded)
     (do-call% method uri out-type args-encoded)))