anchor.diff:                (:client-data
                   (vom:debug "client-data msg")
                   (handler-case
  -                  (let ((line (nth 1 msg)))
  +                  (let ((line (swank/backend:utf8-to-string (nth 1 msg))))
                       (vom:debug "Message from client: ~s" line)
                       (write-sequence (msg-client-to-swank line :octets)
                                       swank-stream)
  
positive.code:                 (handler-case
                    (let ((swank-msg (swank/backend:utf8-to-string (nth 1 msg))))
                      (vom:debug "Message from SWANK: ~s" swank-msg)
                      (write-sequence (msg-swank-to-client swank-msg :string)
                                      client-stream)
                      (finish-output client-stream))
                    (t (c)
  
negative.code:           (usocket:socket-listen host port
                                   :reuse-address t
                                   :backlog 128
                                   :element-type '(unsigned-byte 8))))
      (swank/backend:spawn
        #'(lambda ()
            (vlime-usocket::server-listener server-socket swank-host swank-port))
  