@@ -279,6 +279,10 @@

               result))

       )))

+(defun sp-ob (ob-string)

+  (partition #\null

+             ob-string))

+

 (defun split-object (object-data)

   (destructuring-bind (head tail)

       (partition 0

@@ -6,6 +6,9 @@

   "The encoding to use when parsing git objects")

 (defun git-show (object)

-  (babel:octets-to-string (extract-object (repository *git-repository*)

-                                          object)

-                          :encoding *git-encoding*))

+  (elt (sp-ob

+        (babel:octets-to-string

+         (extract-object (repository *git-repository*)

+                         object)

+         :encoding *git-encoding*))

+       1))