 
 (defn send-to-client
   ([channel code msg]
-     (send-to-client channel code msg (:host +server+)))
+     (send-to-client channel code msg (hostname)))
   ([channel code msg from]
      (send-to-client*
       channel

      (alter db remove-tuple :user user)
      (alter db add-tuple :user (update-in user [:pending?] conj step)))))

(defn send-to-client* [channel msg]
  (when (.isWritable channel)
    (send (agent nil)

  (send-to-client channel 2
                  (format
                   "Your host is %s, running version %s"
                   (hostname)
                   (:version +server+)))
  (send-to-client channel 3
                  (format "This server was created %s" (:started +server+)))
  (send-to-client channel 4
                  (format "%s %s mMvV bcdefFhiIklmnoPqstv"
                          (hostname)
                          (:version +server+))))

(defn maybe-update-authentication! [channel]
