Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -165,11 +165,11 @@
   	    (change-directory datadir)
 	    (let ((files (filter (lambda (x)
 				(not (member x '("." ".."))))
 			      (glob "*" ".*"))))
 	     (print "files: " files)
-	     (process-execute "/bin/tar" (append (list "chfv" "-") files))))
+	     (process-execute "/bin/tar" (append (append (list  "chfv" "-") files) (list "--ignore-failed-read")))))
              (begin
                (let* ((parent-dir (pathname-directory datadir) )
                       (filename  (conc(pathname-file datadir) "." (pathname-extension datadir))))
                   (change-directory parent-dir)  
                   (process-execute "/bin/tar" (list "chfv" "-" filename))