@@ -44,11 +44,12 @@
 			(list "Testname: "
 			      "Item path: "
 			      "Current state: "
 			      "Current status: "
 			      "Test comment: "
-			      "Test id: "))
+			      "Test id: "
+			      "Test date: "))
 		   (list (iup:label "" #:expand "VERTICAL"))))
     (apply iup:vbox  ; #:expand "YES"
 	   (list 
 	    (store-label "testname"
 			 (iup:label (db:test-get-testname  testdat) #:expand "HORIZONTAL")
@@ -79,10 +80,15 @@
 	    (store-label "testid"
 			 (iup:label "TestId                             "
 				    #:expand "HORIZONTAL")
 			 (lambda (testdat)
 			   (db:test-get-id testdat)))
+	    (store-label "testdate" 
+			 (iup:label "TestDate                           "
+				    #:expand "HORIZONTAL")
+			 (lambda (testdat)
+			   (seconds->work-week/day-time (db:test-get-event_time testdat))))
 	    )))))
 
 ;;======================================================================
 ;; Test meta panel
 ;;======================================================================
@@ -128,26 +134,34 @@
 
 ;;======================================================================
 ;; Run info panel
 ;;======================================================================
 (define (run-info-panel keydat testdat runname)
-  (iup:frame 
-   #:title "Megatest Run Info" ; #:expand "YES"
-   (iup:hbox ; #:expand "YES"
-    (apply iup:vbox ; #:expand "YES"
-	   (append (map (lambda (keyval)
-			  (iup:label (conc (car keyval) " ") ; #:expand "HORIZONTAL"
-				     ))
-			keydat)
-		   (list (iup:label "runname ")(iup:label "run-id"))))
-    (apply iup:vbox
-	   (append (map (lambda (keyval)
-			  (iup:label (cadr keyval) #:expand "HORIZONTAL"))
-			keydat)
-		   (list (iup:label runname)
-			 (iup:label (conc (db:test-get-run_id testdat)))
-			 (iup:label "" #:expand "VERTICAL")))))))
+  (let* ((run-id     (db:test-get-run_id testdat))
+	 (rundat     (cdb:remote-run db:get-run-info #f run-id))
+	 (header     (db:get-header rundat))
+	 (event_time (db:get-value-by-header (db:get-row rundat)
+					     (db:get-header rundat)
+					     "event_time")))
+    (iup:frame 
+     #:title "Megatest Run Info" ; #:expand "YES"
+     (iup:hbox ; #:expand "YES"
+      (apply iup:vbox ; #:expand "YES"
+	     (append (map (lambda (keyval)
+			    (iup:label (conc (car keyval) " ")))
+			  keydat)
+		     (list (iup:label "runname ")
+			   (iup:label "run-id")
+			   (iup:label "run-date"))))
+      (apply iup:vbox
+	     (append (map (lambda (keyval)
+			    (iup:label (cadr keyval) #:expand "HORIZONTAL"))
+			  keydat)
+		     (list (iup:label runname)
+			   (iup:label (conc run-id))
+			   (iup:label (seconds->year-work-week/day-time event_time))
+			   (iup:label "" #:expand "VERTICAL"))))))))
   
 ;;======================================================================
 ;; Host info panel
 ;;======================================================================
 (define (host-info-panel testdat store-label)