diff --git a/lib/chibi/tar.scm b/lib/chibi/tar.scm
index 0207ce15..d45b3637 100644
--- a/lib/chibi/tar.scm
+++ b/lib/chibi/tar.scm
@@ -165,7 +165,7 @@
       (tar-gid-set! tar (file-group st))
       (tar-owner-set! tar (file-owner-or-nobody st))
       (tar-group-set! tar (file-group-or-nobody st))
-      (tar-time-set! tar (+ 1262271600 (file-modification-time st)))
+      (tar-time-set! tar (file-modification-time st))
       (tar-type-set! tar (cond ((file-link? st) "2")
                                ((file-character? st) "3")
                                ((file-block? st) "4")
@@ -272,7 +272,7 @@
                             (make-bytevector (- 512 rem) 0) out)))))
                    (cons (cons (tar-path tar) src) acc))))))
            (if (and src0 (not no-recurse?))
-               (directory-fold-tree src0 kons acc kons)
+               (directory-fold-tree src0 #f #f kons acc)
                (kons src0 acc))))
        '() files)
       (write-bytevector (make-bytevector 1024 0) out)