diff --git a/src/util-git.scm b/src/util-git.scm
index 795193a..5e9d291 100644
--- a/src/util-git.scm
+++ b/src/util-git.scm
@@ -88,8 +88,10 @@
 	   res
 	   (let* ((line (car lines))
 		  (st (substring line 0 2))
-		  (fname (substring line 4))
-		  (status (or (assoc st git-status-types)
+		  (fname (substring line 3))
+		  (maybe-status (assoc st git-status-types))
+		  (status (if maybe-status
+			      (cadr maybe-status)
 			      'unknown)))
 	     (loop (cdr lines)
 		   (ldict-set res