diff --git a/tsv2vcard.scm b/tsv2vcard.scm
index 4ae665d..d9f0a42 100644
--- a/tsv2vcard.scm
+++ b/tsv2vcard.scm
@@ -4,8 +4,8 @@
 (define (tsv-fields line)
   (reverse
    (let iter ((len (string-length line))
-			  (rem (string-copy line))
-			  (idx 0)
+		      (rem (string-copy line))
+    		  (idx 0)
 			  (res '()))
 	 (cond ((>= idx len) (cons rem res))
 		   ((char=? #\tab (string-ref rem idx))