Index: archive.scm
==================================================================
--- archive.scm
+++ archive.scm
@@ -90,11 +90,11 @@
 	       (pscript-cmd (conc pscript " " testsuite-name " " target " " run-name " " test-name))
 	       (apath       (if pscript
 				(handle-exceptions
 				 exn
 				 (begin
-				   (debug:print 0 "ERROR: script \"" pscript-cmd "\" failed to run properly.")
+				   (debug:print 0 *current-log-port* "ERROR: script \"" pscript-cmd "\" failed to run properly.")
 				   (exit 1))
 				 (with-input-from-pipe
 				  pscript-cmd
 				  read-line))
 				#f)) ;; this is the user-calculated archive path
@@ -116,13 +116,16 @@
 		;;   (allocation-id (rmt:archive-allocate-testsuite/area-to-block block-id testsuite-name area-key)))
 		(if block-id ;; (and block-id allocation-id)
 		    (let ((res (cons block-id archive-path)))
 		      (hash-table-set! blockid-cache key res)
 		      res)
-		    #f))
-	      #f)) ;; no best disk found
-	  )))
+		    (begin
+		      (debug:print 0 *current-log-port* "WARNING: no disk found for " target ", " run-name ", " test-name ", block-id=" block-id)
+		      #f)))
+	      (begin
+		(debug:print 0 *current-log-port* "WARNING: no disk found for " target ", " run-name ", " test-name ", block-id=" block-id)
+		#f)))))) ;; no best disk found
 
 ;; archive - run bup
 ;;
 ;; 1. create the bup dir if not exists
 ;; 2. start the du of each directory