diff --git a/src/util-git.scm b/src/util-git.scm
index cb187f3..d4c5ca7 100644
--- a/src/util-git.scm
+++ b/src/util-git.scm
@@ -114,6 +114,7 @@
 		      blames
 		      (cons blame blames)))
 	 (let ((line (car lines)))
+	   (print line)
 	   (cond ((ldict-empty? blame)
 		  ;; First row - commit
 		  (let ((ll (string-split line)))
@@ -129,15 +130,19 @@
 				blames))))
 		 (else
 		  ;; Any header
-		  (let* ((kv (parser-parse-line line))
-			 (k (car kv))
-			 (v (cdr kv))
-			 (v1 (case k
-			       ((committer-time)
-				(seconds->iso-date-string (string->number v)))
-			       (else v))))
-		    (loop (cdr lines)
-			  (ldict-set blame k v1)
-			  blames))))))))
+		  (let ((kv (parser-parse-line line)))
+		    (if (pair? kv)
+			(let* ((k (car kv))
+			       (v (cdr kv))
+			       (v1 (case k
+				     ((committer-time)
+				      (seconds->iso-date-string (string->number v)))
+				     (else v))))
+			  (loop (cdr lines)
+				(ldict-set blame k v1)
+				blames))
+			(loop (cdr lines)
+			      blame
+			      blames)))))))))
 
  )