         (let [db-path   (.valueOf opt-set "f")
               ephemeral (.has opt-set "e")
               port      (or (parse-int (.valueOf opt-set "p")) 3400)
-              addr      (or (.valueOf opt-set "a") "127.0.0.1")
-              threads   (or (parse-int (.valueOf opt-set "t")) 100)
-              protocol  (or (keyword (or (.valueOf opt-set "i") "bert")))]
-          (run db-path ephemeral port addr threads protocol)))))
+              addr      (or (.valueOf opt-set "a") "localhost")
+              threads   (or (parse-int (.valueOf opt-set "t")) 100)]
+          (run db-path ephemeral port addr threads)))))

      (recur))))

(defn- print-help []
  (println "FleetDB Server                                                               ")
  (println "-f <path>   Path to database log file                                        ")
  (println "-e          Ephemeral: do not log changes to disk                            ")
  (println "-p <port>   TCP port to listen on (default: 3400)                            ")
  (println "-a <addr>   Local address to listen on (default: 127.0.0.1)                  ")
  (println "-t <num>    Maximum number of worker threads (default: 100)                  ")
  (println "-i <name>   Client/server protocol: one of {text,binary,bert,bert-rpc} (default: bert)")
  (println "-h          Print this help and exit.                                        "))

(defn- parse-int [s]
  (and s (Integer/decode s)))

(defn -main [& args]
  (let [args-array  (into-array String args)
        opt-parser (OptionParser. "f:ep:a:t:i:h")
        opt-set    (.parse opt-parser args-array)]
    (cond
      (not-any? #(.has opt-set #^String %) ["f" "e" "p" "a" "t" "i" "h"])
        (print-help)
      (.has opt-set "h")
        (print-help)

                        (if loading
                          (embedded/load-persistent db-path)
                          (embedded/init-persistent db-path)))]
    (printf "FleetDB is ready on port %d\n" port)
    (flush)
    (loop []
      (let [socket (doto (.accept server-socket))]
