Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -702,13 +702,15 @@
 		   (let* ((run-id  (db:get-value-by-header run header "id"))
 			  (runname (db:get-value-by-header run header "runname")) 
 			  (tests   (mt:get-tests-for-run run-id testpatt '() '())))
 		     (case dmode
 		       ((json)
-			(mutils:hierhash-set! data (db:get-value-by-header run header "status"  ) targetstr runname "meta" "status")
-			(mutils:hierhash-set! data (db:get-value-by-header run header "state"   ) targetstr runname "meta" "state" )
-			(mutils:hierhash-set! data (conc (db:get-value-by-header run header "id") targetstr runname "meta" "id"    )))
+			(mutils:hierhash-set! data (db:get-value-by-header run header "status"  )   targetstr runname "meta" "status")
+			(mutils:hierhash-set! data (db:get-value-by-header run header "state"   )   targetstr runname "meta" "state" )
+			(mutils:hierhash-set! data (conc (db:get-value-by-header run header "id")   targetstr runname "meta" "id"    ))
+			(mutils:hierhash-set! data (db:get-value-by-header run header "event_time") targetstr runname "meta" "event_time")
+			)
 		       (else
 			(print "Run: " targetstr "/" runname 
 			       " status: " (db:get-value-by-header run header "state")
 			       " run-id: " run-id ", number tests: " (length tests))))
 		     (for-each 
@@ -717,24 +719,26 @@
 			      (fullname (conc (db:test-get-testname test)
 					      (if (equal? (db:test-get-item-path test) "")
 						  "" 
 						  (conc "(" (db:test-get-item-path test) ")"))))
 			      (tstate   (db:test-get-state test))
-			      (tstatus  (db:test-get-status test)))
+			      (tstatus  (db:test-get-status test))
+                              (event-time (db:test-get-event_time test)))
 			  (case dmode
 			    ((json)
-			     (mutils:hierhash-set! data fullname targetstr runname "data" (conc test-id) "tname")
-			     (mutils:hierhash-set! data tstate   targetstr runname "data" (conc test-id) "state")
-			     (mutils:hierhash-set! data tstatus  targetstr runname "data" (conc test-id) "status"))
+			     (mutils:hierhash-set! data fullname   targetstr runname "data" (conc test-id) "tname")
+			     (mutils:hierhash-set! data tstate     targetstr runname "data" (conc test-id) "state")
+			     (mutils:hierhash-set! data tstatus    targetstr runname "data" (conc test-id) "status")
+			     (mutils:hierhash-set! data event-time targetstr runname "data" (conc test-id) "event_time"))
 			    (else
 			     (format #t
 				     "  Test: ~25a State: ~15a Status: ~15a Runtime: ~5@as Time: ~22a Host: ~10a\n"
 				     fullname
 				     tstate
 				     tstatus
 				     (db:test-get-run_duration test)
-				     (db:test-get-event_time test)
+				     event-time
 				     (db:test-get-host test))
 			     (if (not (or (equal? (db:test-get-status test) "PASS")
 					  (equal? (db:test-get-status test) "WARN")
 					  (equal? (db:test-get-state test)  "NOT_STARTED")))
 				 (begin