Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -109,10 +109,11 @@
 		   (print "##teamcity[testStarted " tcname flowid tstmp "]")
 		   (testdat-start-printed-set! tdat #t)))
 	     (if (not endp)
 		 (begin
 		   (print "##teamcity[testFailed  " tcname flowid comment details "]")
+                   (print "##teamcity[testFinished" tcname flowid comment details duration "]")
 		   (testdat-end-printed-set! tdat #t)))))))
     ;; (print "ERROR: tc-type \"" (testdat-tc-type tdat) "\" not recognised for " tcname)))
     (flush-output)))
 
 ;; ;; returns values: flag newlst