anchor.diff:  
   (defgeneric connection-close (connection)
     (:method ((connection connection))
  -   (with-slots (socket stream peer) connection
  -     (when stream (close stream))
  +   (with-slots (socket peer) connection
        (when peer
          (vom:debug "Closing peer connection...")
          (setf (connection-peer peer) nil)
  
positive.code:     (with-event-loop (:catch-app-errors t)
        (let ((server (as::tcp-server-new
                        host port
                        #'(lambda (socket stream)
                            (client-read-cb socket stream
                                            swank-host swank-port))
                        :event-cb #'socket-event-cb
                        :connect-cb #'client-connect-cb
                        :stream t)))
          (vom:debug "Server created: ~s" server)))))
  
negative.code: 
  
  (defun handle-client-msg (msg client-conn)
    (let ((msg-to-swank (msg-client-to-swank msg)))
      (with-slots ((swank-conn peer)) client-conn
        (as:write-socket-data
          (connection-socket swank-conn)
          (babel:string-to-octets msg-to-swank)))))
  
  
  (defun ensure-swank-connection (client-conn swank-host swank-port)
    (with-slots ((swank-conn peer)) client-conn
      (when (not swank-conn)
        (vom:debug "Connecting to peer...")
        (let ((swank-socket
                (tcp-connect swank-host swank-port
                             #'swank-read-cb
                             :event-cb  #'socket-event-cb)))
          (make-connection :socket swank-socket :peer client-conn)
          (vom:debug "Connection count: ~s" (hash-table-count *connections*))))))
  
  
  (defun client-read-cb (socket data swank-host swank-port)
    (let* ((client-conn (gethash socket *connections*))
           (line-list (parse-line data client-conn)))
      (when line-list
        (ensure-swank-connection client-conn swank-host swank-port)
        (vom:debug "Raw data from ~s: ~s" socket line-list)
        (dolist (line line-list)
  