                             streams
                             (conj results [result-ch accept-chs]))))
                  (net-clean-up net listens streams results))
-               (= ch request-connect-ch)
+               (= ch request-connect-ch) ; Client connect request.
                (if-let [[to-addr to-port from-addr result-ch] v]
                  ; TODO: Need to model connection delay, perhaps with a generic "later".
                  (if-let [[close-accept-ch accept-ch] (get listens [to-addr to-port])]

                            (assoc streams (:send-ch stream2) stream2)
                            results)))
                 (if-let [stream (first (filter #(= (:close-recv-ch %) ch) (vals streams)))]
                   (if v
                     (recur (inc ts) listens streams results)
                     (do (aclose net (:recv-ch stream)) ; Handle a closed close-recv-ch.
                         (recur (inc ts)
                                listens
                                (assoc streams (:send-ch stream)

                   (do (aclose net result-ch)
                       (recur (inc ts) listens streams results)))
                 (net-clean-up net listens streams results))
               (some #(= ch %) send-chs) ; Peer aput to a send-ch.
               (let [send-ch ch
                     stream (get streams send-ch)]
                 (if-let [[msg result-ch] v]
