Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -391,10 +391,11 @@
 ))  
 
 (define (archive:ls->list  bup-exe archive-dir internal-path)
   (let ((cmd (conc bup-exe " -d " archive-dir  " ls -l " internal-path "| awk '{print $6}' | sort"))
         (res '()))
+    (debug:print-info 0 *default-log-port* cmd)
     (handle-exceptions
      exn
      #f ;; anything goes wrong - assume the process in NOT running.
      (with-input-from-pipe 
       cmd
@@ -412,22 +413,23 @@
    (seconds->local-time sec)
    "%Y-%m-%d-%H%M%S"))
  
 
 (define (archive:get-timestamp-dir bup-exe archive-dir testsuite-name run-id test-partial-path test-last-update)
-    (print (seconds->std-time-str test-last-update)) 
+    (debug:print-info 0 *default-log-port* "Test last update time:" (seconds->std-time-str test-last-update)) 
     (let* ((internal-path (conc testsuite-name "-" run-id))
+           (archive-update-delay (string->number (or (configf:lookup *configdat* "archive" "test-update-delay") "900" )))  
            (ts-list (archive:ls->list  bup-exe archive-dir internal-path))
            (ds-flag (vector-ref (seconds->local-time) 8)))
            (let loop ((hed (car ts-list))
                        (tail (cdr ts-list)))
                    (if (and (null? tail) (equal? hed "latest"))
                         #f
                     (if (and (not (null? tail)) (equal? hed "latest"))
                         (loop (car tail) (cdr tail))
                   (let* ((archive-seconds (time-string->seconds hed ds-flag)))
-                    (if (< (abs (- archive-seconds test-last-update)) 120)
+                    (if (< (abs (- archive-seconds test-last-update)) archive-update-delay)
                     (let* ((test-list (archive:ls->list  bup-exe archive-dir (conc internal-path "/" hed "/" test-partial-path))))
                            (if (> (length test-list) 0)
                                hed
                                (if (not (null? tail)) 
                                  (loop (car tail) (cdr tail))
@@ -481,10 +483,11 @@
 	      (exclude-file            (args:get-arg "-exclude-rx-from")))
 	 (if (not archive-timestamp-dir)
                (debug:print-error 0 *default-log-port* "Archive not found for testsuite" (common:get-testsuite-name) " run/test/itempath" test-partial-path)
          (begin    
 	 ;; some sanity checks, move an existing path out of the way - iif it is not a toplevel with children
+         (debug:print-info 0 *default-log-port* "Archive time: " archive-timestamp-dir)
 	 (if (and (not toplevel/children)  ;; special handling needed for toplevel with children
 		  prev-test-physical-path
 		  (common:file-exists? prev-test-physical-path)) ;; what to do? abort or clean up or link it in?
 	     (let* ((base (pathname-directory prev-test-physical-path))
 		    (dirn (pathname-file      prev-test-physical-path))