Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -73,14 +73,16 @@
 	       ;; (print "DEBUG: testn=" testn " state=" state " status=" status " prevstat=" prevstat " newstat=" newstat)
 	       (if (or (not prevstat)
 		       (not (equal? prevstat newstat)))
 		   (begin
 		     (case (string->symbol newstat)
+		       ((UNK)       ) ;; do nothing
 		       ((RUNNING)   (print "##teamcity[testStarted name='" tctname "']"))
 		       ((PASS SKIP) (print "##teamcity[testFinished name='" tctname "' duration='" duration "']"))
 		       (else
 			(print "##teamcity[testFailed name='" tctname "' message='" comment "' details='" logfile "']")))
+		     (flush-output)
 		     (hash-table-set! data testn newstat)))))
 	   tests)))
       run-ids))
     now))