diff --git a/test-r7rs.scm b/test-r7rs.scm
index b212296..af9e80a 100755
--- a/test-r7rs.scm
+++ b/test-r7rs.scm
@@ -18,7 +18,8 @@
              (loop (bytevector-append whole part))))))))
 
 (define (main arguments)
-  (for-each (lambda (file) (tar-write-file file (slurp-binary-file file)))
+  (for-each (lambda (file) (tar-write-file (string-append "test/" file)
+                                           (slurp-binary-file file)))
             (cdr arguments)))
 
 (main (command-line))