@@ -23,11 +23,15 @@
 			(list "Testname: "
 			      "Item path: "
 			      "Current state: "
 			      "Current status: "
 			      "Test comment: "
-			      "Test id: "))
+			      "Test id: "
+			      "Value: "
+			      "Expected value: "
+			      "Tolerance: "
+			      "Units: "))
 		   (list (iup:label "" #:expand "VERTICAL"))))
     (apply iup:vbox  ; #:expand "YES"
 	   (list 
 	    (store-label "testname"
 			 (iup:label (db:test-get-testname  testdat) #:expand "HORIZONTAL")
@@ -57,11 +61,32 @@
 			   (db:test-get-comment testdat)))
 	    (store-label "testid"
 			 (iup:label "TestId                             "
 				    #:expand "HORIZONTAL")
 			 (lambda (testdat)
-			   (db:test-get-id testdat))))))))
+			   (db:test-get-id testdat)))
+	    (store-label "testvalue"
+			 (iup:label "TestValue                          "
+				    #:expand "HORIZONTAL")
+			 (lambda (testdat)
+			   (db:test-get-value testdat)))
+	    (store-label "testexpectedvalue"
+			 (iup:label "TestExpectedValue                  "
+				    #:expand "HORIZONTAL")
+			 (lambda (testdat)
+			   (db:test-get-expected_value testdat)))
+	    (store-label "testtol"
+			 (iup:label "TestTol                             "
+				    #:expand "HORIZONTAL")
+			 (lambda (testdat)
+			   (db:test-get-tol testdat)))
+	    (store-label "testunits"
+			 (iup:label "TestUnits                          "
+				    #:expand "HORIZONTAL")
+			 (lambda (testdat)
+			   (db:test-get-units testdat)))
+	    )))))
 
 ;;======================================================================
 ;; Test meta panel
 ;;======================================================================
 (define (test-meta-panel testmeta store-meta)