diff --git a/tsv2vcard.scm b/tsv2vcard.scm
index d9f0a42..cd43fec 100644
--- a/tsv2vcard.scm
+++ b/tsv2vcard.scm
@@ -39,7 +39,7 @@
 (define (foreach-line thunk)
   (let loop ()
 	(let ((line (get-line (current-input-port))))
-	  (when (not (eof-object? line))
+	  (unless (eof-object? line)
 		(display (thunk line))
 		(loop)))))