@@ -97,11 +97,14 @@
     (if (file-exists? (conc lnkpath "/" testname))
 	(system (conc "rm -f " lnkpath "/" testname)))
     (system  (conc "ln -sf " dfullp " " lnkpath "/" testname))
     (if (directory? dfullp)
 	(begin
-	  (system  (conc "rsync -av " test-path "/ " dfullp "/"))
+	  (let* ((cmd    (conc "rsync -av" (if (> *verbosity* 1) "" "q") " " test-path "/ " dfullp "/"))
+		 (status (system cmd)))
+	    (if (not (eq? status 0))
+		(debug:print 2 "ERROR: problem with running \"" cmd "\"")))
 	  (list dfullp toptest-path))
 	(list #f #f))))
 
 ;; 1. look though disks list for disk with most space
 ;; 2. create run dir on disk, path name is meaningful