              config {}]
         (let [[val ch] (alts!
                         (conj
-                         (map #(vector (:chan %) :ready) backends)
+                         (map #(vector (:chan %) listener) backends)
                          config-ch
                          shutdown))]
           (cond (= ch config-ch)

            [clojure.java.io :as io]
            [clojure.pprint :refer [pprint]]
            [clojure.core.async :as async
             :refer [<! go chan >! close! alts!]]))

(defn server-socket
  "Opens a ServerSocketChannel listening on the specified TCP `port` then

                (do (println "quit") (.close listener))

                :else
                (do (and listener (>! ch listener))
                    (recur backends listener config))))))
    shutdown))
