diff --git a/swank/core/protocol.clj b/swank/core/protocol.clj
index 1acd6dd..35dfa43 100644
--- a/swank/core/protocol.clj
+++ b/swank/core/protocol.clj
@@ -34,9 +34,9 @@
      (let [s (pr-str message)
            len (.length s)]
        (doto w
-         (write (num->hex len 6))
-         (write s)
-         (flush))))
+         (.write (num->hex len 6))
+         (.write s)
+         (.flush))))
   {:tag String})
 
 (defn read-swank-message
diff --git a/swank/core/server.clj b/swank/core/server.clj
index 83479ce..82a2f96 100644
--- a/swank/core/server.clj
+++ b/swank/core/server.clj
@@ -73,5 +73,5 @@
   ([#^String file port]
      (with-open [out (new java.io.FileWriter file)]
        (doto out
-         (write (str port "\n"))
-         (flush)))))
+         (.write (str port "\n"))
+         (.flush)))))
diff --git a/swank/util/concurrent/thread.clj b/swank/util/concurrent/thread.clj
index aeded68..69fb50a 100644
--- a/swank/util/concurrent/thread.clj
+++ b/swank/util/concurrent/thread.clj
@@ -8,7 +8,7 @@
   "Starts a thread that run the given function f"
   ([f]
      (doto (Thread. f)
-       (start))))
+       (.start))))
 
 (defmacro dothread [& body]
   `(start-thread (fn [] ~@body)))