@@ -798,11 +798,12 @@
       (let* ((mtdb     (dbr:dbstruct-mtdb dbstruct))
 	     (tmpdb    (dbr:dbstruct-tmpdb dbstruct))
              (refndb   (dbr:dbstruct-refndb dbstruct))
 	     (allow-cleanup #t) ;; (if run-ids #f #t))
 	     (tdbdat  (tasks:open-db))
-	     (servers (tasks:get-all-servers (db:delay-if-busy tdbdat))))
+	     (servers (tasks:get-all-servers (db:delay-if-busy tdbdat)))
+	     (data-synced 0)) ;; count of changed records (I hope)
     
 	;; kill servers
 	(if (member 'killservers options)
 	    (for-each
 	     (lambda (server)
@@ -844,11 +845,14 @@
 
 	;; now ensure all newdb data are synced to megatest.db
 	;; do not use the run-ids list passed in to the function
 	;;
 	(if (member 'new2old options)
-	    (db:sync-tables (db:sync-all-tables-list dbstruct) #f tmpdb refndb mtdb))
+	    (set! data-synced
+		  (+ (db:sync-tables (db:sync-all-tables-list dbstruct) #f tmpdb refndb mtdb)
+		      data-synced)))
+
 
         (if (member 'fixschema options)
             (begin
               (db:patch-schema-maindb (db:dbdat-get-db mtdb))
               (db:patch-schema-maindb (db:dbdat-get-db tmpdb))
@@ -919,11 +923,11 @@
 ;; 		      (delete-file fullname)))))
 ;; 	    dead-runs))))
 ;; 
 	;; (db:close-all dbstruct)
 	;; (sqlite3:finalize! mdb)
-	)))
+	data-synced)))
 
 ;; keeping it around for debugging purposes only
 (define (open-run-close-no-exception-handling  proc idb . params)
   (debug:print-info 11 *default-log-port* "open-run-close-no-exception-handling START given a db=" (if idb "yes " "no ") ", params=" params)
   (print "I don't work anymore. open-run-close-no-exception-handling needs fixing or removing...")