Pass on blame properly to listing.

src/members-print.scm

@@ -175,7 +175,6 @@
 	  (file-path (brmember-file-path mr))
 	  (blame (git-blame (*members-directory*) file-name))
 	  )
-     (print blame)
      (print file-name ":")
      (print-source-listing
       blame

src/util-git.scm

@@ -119,9 +119,9 @@
 		    (loop (cdr lines)
 			  (ldict-set blame 'commit (car ll))
 			  blames)))
-		 ((eq? (string-ref line 0) #\space)
+		 ((memq (string-ref line 0) '(#\space #\tab))
 		  ;; Actual line with data
-		  (let ((rline (substring line 8)))
+		  (let ((rline (substring line 1)))
 		    (loop (cdr lines)
 			  (make-ldict)
 			  (cons (ldict-set blame 'line rline)