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='" etime "'")))
+	 (tstmp    (conc " timestamp='" (time->string (seconds->local-time etime) "%F %T") "'")))
     (case overall
       ((RUNNING)
        (if (not startp)
 	   (begin
 	     (print "##teamcity[testStarted "  tcname flowid tstmp "]")
@@ -105,11 +105,11 @@
        (if flush-mode
 	   (begin
 	     (if (not startp)
 		 (begin
 		   (print "##teamcity[testStarted " tcname flowid tstmp "]")
-		   (testdat-started-printed-set! tdat #t)))
+		   (testdat-start-printed-set! tdat #t)))
 	     (if (not endp)
 		 (begin
 		   (print "##teamcity[testFailed  " tcname flowid comment details "]")
 		   (testdat-end-printed-set! tdat #t)))))))
     ;; (print "ERROR: tc-type \"" (testdat-tc-type tdat) "\" not recognised for " tcname)))
@@ -143,12 +143,11 @@
          (tqueue     (reverse (delete-duplicates tqueue-raw     ;; REMOVE duplicates by testname and state
                                                  (lambda (a b)
                                                    (and (equal? (testdat-tname a)(testdat-tname b))        ;; need oldest to newest
                                                         (equal? (testdat-state a) (testdat-state b)))))))) ;; "COMPLETED")
     ;; (equal? (testdat-state b) "COMPLETED")))))))
-    (if (null? tqueue)
-        (print "Nothing to do!")
+    (if (not (null? tqueue))
         (hash-table-set!
          data
          'tqueue
          (let loop ((hed (car tqueue)) ;; by this point all duplicates by state COMPLETED are removed
                     (tal (cdr tqueue))