Index: rpctest/rpctest-continuous-client.scm
==================================================================
--- rpctest/rpctest-continuous-client.scm
+++ rpctest/rpctest-continuous-client.scm
@@ -17,11 +17,11 @@
 (print "Operation: " operation ", param: " param)
 
 ;; have a pool of db's to pick from
 (define *dbpool* '())
 (define *pool-mutex* (make-mutex))
-
+1
 (define (get-db)
   (mutex-lock! *pool-mutex*)
   (if (null? *dbpool*)
       (begin
 	(mutex-unlock! *pool-mutex*)
@@ -47,12 +47,19 @@
       (tcp-listen 0)))
 
 ;; Start server thread
 (define rpc:server
   (make-thread
-   (cute (rpc:make-server rpc:listener) "rpc:server")
+   (cute (rpc:make-server rpc:listener) "rpc:server") ;; NOTE: see equivalent code below
    'rpc:server))
+
+;; This is what the code would look like without cute
+;; (define rpc:server
+;;   (make-thread
+;;    (lambda ()
+;;      ((rpc:make-server rpc:listener) "rpc:server"))
+;;    'rpc:server))
 
 (thread-start! rpc:server)
 
 ;;; Server side
 

Index: sretrieve.scm
==================================================================
--- sretrieve.scm
+++ sretrieve.scm
@@ -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))