@@ -153,11 +153,11 @@
     (sretrieve:db-do
      configdat
      (lambda (db)
        (sretrieve:register-action db "get" retriever datadir comment)))
     (change-directory datadir)
-    (process-execute "tar" (append (list "cfv" "-")(filter (lambda (x)
+    (process-execute "tar" (append (list "chfv" "-")(filter (lambda (x)
 							     (not (member x '("." ".."))))
 							   (glob "*" ".*"))))))
 
 (define (sretrieve:validate target-dir targ-mk)
   (let* ((normal-path (normalize-pathname targ-mk))