Commits (1)
......@@ -86,7 +86,7 @@
(when (= offset (parse-integer size))
(return-from open-object-stream (make-concatenated-stream)))
;; Server supports range requests!
(push (cons :range (format nil "bytes=~D-~D" offset size)) headers)))
(push (cons :range (format nil "bytes=~D-~D" offset (1- size))) headers)))
(multiple-value-bind (s code)
(http-client-request (http-object-store-http-client object-store) uri
:additional-headers headers
......