Index: tcmt.scm
==================================================================
--- tcmt.scm
+++ tcmt.scm
@@ -81,11 +81,11 @@
 	 (etime    (testdat-event-time    tdat))
 	 (overall  (case state
 		     ((RUNNING)   state)
 		     ((COMPLETED) state)
 		     (else 'UNK)))
-	 (tstmp    (conc " timestamp='" (time->string (seconds->local-time etime) "%F %T") "'")))
+	 (tstmp    (conc " timestamp='" (time->string (seconds->local-time etime) "%FT%T.000") "'")))
     (case overall
       ((RUNNING)
        (if (not startp)
 	   (begin
 	     (print "##teamcity[testStarted "  tcname flowid tstmp "]")