diff --git a/repo2html.scm b/repo2html.scm
index 4620b2d..385359d 100755
--- a/repo2html.scm
+++ b/repo2html.scm
@@ -201,7 +201,7 @@
                    ,(->
                      source-file
                      git-file->lines
-                     ((lambda (x) (if (eof-object? x) (list (pathname-strip-directory source-file)) x)))
+                     ((lambda (x) (if (or (eof-object? x) (null-list? x)) (list (pathname-strip-directory source-file)) x)))
                      car
                      (string-trim (string->char-set "# ")))))))
         source-files-list)))))