diff --git a/report.scm b/report.scm
index 9c7663e..9714ee9 100644
--- a/report.scm
+++ b/report.scm
@@ -68,8 +68,6 @@
                                          (lambda (line)
                                            (string-append line "</br>"))
                                          results))))
-                (write results)
-                (newline)
                 (execute report-row
                          `((name . ,name)
                            (command . ,command)
diff --git a/util.scm b/util.scm
index 389e24c..23afec6 100644
--- a/util.scm
+++ b/util.scm
@@ -26,7 +26,9 @@
           ((looper
              (lambda (line count lines)
                (if (eof-object? line)
-                 (list-tail lines (- (length lines) linecount))
+                 (if (< (length lines) linecount)
+                   (list)
+                   (list-tail lines (- (length lines) linecount)))
                  (looper (read-line) (+ count 1) (append lines (list line)))))))
           (looper (read-line) 0 (list)))))))