Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -868,11 +868,11 @@
 
 (define (tasks:sync-tests-data dbh cached-info test-ids area-info)
   (let ((test-ht (hash-table-ref cached-info 'tests)))
     (for-each
      (lambda (test-id)
-       (print test-id)
+       ;(print test-id)
        (let* ((test-info    (rmt:get-test-info-by-id #f test-id))
 	      (run-id       (db:test-get-run_id    test-info)) ;; look these up in db_records.scm
 	      (test-id      (db:test-get-id        test-info))
 	      (test-name    (db:test-get-testname  test-info))
 	      (item-path    (db:test-get-item-path test-info))