           (try
             (let [bin (car/wcar conn (car/parse-raw (car/get id)))
                   bais (ByteArrayInputStream. bin)]
-              (.read bais)
-              (.read bais)
               (locked-cb {:input-stream bais
-                          :size (- (count bin) 2)}))
+                          :size (count bin)}))
             (catch Exception e
               (ex-info "Could not read key."
                        {:type :read-error

  (drop 2 (byte-array [1 2 3]))


  (<!! (-exists? store "bar"))

  (<!! (-update-in store ["bar"] (fn [_] 1)))

  (<!! (-update-in store ["bar"] inc))

  (<!! (-get-in store ["bar"]))


  (<!! (-bassoc store "bbar" (byte-array (range 5))))

            (when new
              (let [baos (ByteArrayOutputStream.)]
                (-serialize serializer baos write-handlers [key-vec new])
                (car/wcar conn (car/set id (car/raw (.toByteArray baos))))))
            (put! res-ch [(get-in old rkey)
                          (get-in new rkey)]))
          res-ch
