anchor.diff:                               +mysql-cs-coll-binary+))
                  octets
                  (let ((encoding (column-definition-encoding column-definition)))
  -                 (babel:octets-to-string octets :encoding encoding))))
  +                 (decode-octets-to-string octets encoding))))
   
             (t
  -           (let ((encoding
  -                  (or (column-definition-encoding column-definition)
  -                      babel::*default-character-encoding*)))
  -             (babel:octets-to-string octets :encoding encoding))))))
  +           (let ((encoding (column-definition-encoding column-definition)))
  +             (decode-octets-to-string octets encoding))))))
   
   (defun parse-text-protocol-result-column (octets column-definition)
     (let ((column-type (column-definition-type column-definition))
           str)
       (labels ((str ()
  -               (unless str (setf str
  -                                 (babel:octets-to-string
  -                                  octets)))
  +               (unless str (setf str (decode-octets-to-string octets)))
                  str)
                (parse-float (&optional (float-format 'single-float))
                  ;; Look into replacing this with a library, or moving it to utilities.lisp.
  
positive.code:             collect row)))
      (coerce rows result-type)))
  
  (defun parse-text-protocol-result-column-as-text (octets column-definition)
    "Refrain from parsing data into lisp types, some application will only use
     the text form anyway"
  
negative.code:         (encoding (column-definition-encoding column-definition)))
      (labels ((to-string (octets)
                 (if encoding
                     (decode-octets-to-string octets encoding)
                     octets))
               (parse-binary-integer (length)
                 (read-fixed-length-integer
                  length stream
  