Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -95,13 +95,13 @@
 	   (begin
 	     (print "##teamcity[testStarted " tcname flowid tstmp "]")
 	     (testdat-start-printed-set! tdat #t)))
        (if (not endp)
 	   (begin
-	     (if (member status '(PASS WARN SKIP WAIVED))
-		 (print "##teamcity[testFinished" tcname flowid comment details duration "]")
+	     (if (not (member status '(PASS WARN SKIP WAIVED)))
 		 (print "##teamcity[testFailed  " tcname flowid comment details "]"))
+             (print "##teamcity[testFinished" tcname flowid comment details duration "]")
 	     (testdat-end-printed-set! tdat #t))))
       (else
        (if flush-mode
 	   (begin
 	     (if (not startp)