@@ -177,25 +177,29 @@
       (begin
 	(debug:print-error 0 *default-log-port* "bad data handed to mt:test-set-state-status-by-id, run-id=" run-id ", test-id=" test-id ", newstate=" newstate)
 	(print-call-chain (current-error-port))
 	#f)
       (begin
-	(cond
-	 ((and newstate newstatus newcomment)
-	  (rmt:general-call 'state-status-msg run-id newstate newstatus newcomment test-id))
-	 ((and newstate newstatus)
-	  (rmt:general-call 'state-status run-id newstate newstatus test-id))
-	 (else
-	  (if newstate   (rmt:general-call 'set-test-state   run-id newstate   test-id))
-	  (if newstatus  (rmt:general-call 'set-test-status  run-id newstatus  test-id))
-	  (if newcomment (rmt:general-call 'set-test-comment run-id newcomment test-id))))
+	;; cond
+	;; ((and newstate newstatus newcomment)
+	;;  (rmt:general-call 'state-status-msg run-id newstate newstatus newcomment test-id))
+	;; ((and newstate newstatus)
+	;;  (rmt:general-call 'state-status run-id newstate newstatus test-id))
+	;; (else
+	;;  (if newstate   (rmt:general-call 'set-test-state   run-id newstate   test-id))
+	;;  (if newstatus  (rmt:general-call 'set-test-status  run-id newstatus  test-id))
+	;;  (if newcomment (rmt:general-call 'set-test-comment run-id newcomment test-id))))
+	(rmt:roll-up-pass-fail-counts run-id test-id #f newstate newstatus newcomment)
 	(mt:process-triggers run-id test-id newstate newstatus)
 	#t)))
 
 (define (mt:test-set-state-status-by-testname run-id test-name item-path new-state new-status new-comment)
   (let ((test-id (rmt:get-test-id run-id test-name item-path)))
-    (mt:test-set-state-status-by-id run-id test-id new-state new-status new-comment)))
+    (rmt:roll-up-pass-fail-counts run-id test-name item-path new-state new-status new-comment)
+    (mt:process-triggers run-id test-id new-state new-status)
+    #t))
+	;;(mt:test-set-state-status-by-id run-id test-id new-state new-status new-comment)))
 
 (define (mt:lazy-read-test-config test-name)
   (let ((tconf (hash-table-ref/default *testconfigs* test-name #f)))
     (if tconf
 	tconf