Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -47,10 +47,11 @@
     get-prev-run-ids
     get-run-ids-matching-target
     get-runs-by-patt
     get-steps-data
     get-steps-for-test
+    read-test-data
     login
     testmeta-get-record
     have-incompletes?
     synchash-get
     ))
@@ -226,10 +227,13 @@
 
 	    ;; STEPS
 	    ((get-steps-data)               (apply db:get-steps-data dbstruct params))
 	    ((get-steps-for-test)           (apply db:get-steps-for-test dbstruct params))
 
+	    ;; TEST DATA
+	    ((read-test-data)               (apply db:read-test-data dbstruct params))
+
 	    ;; MISC
 	    ((have-incompletes?)            (apply db:have-incompletes? dbstruct params))
 	    ((login)                        (apply db:login dbstruct params))
 	    ((general-call)                 (let ((stmtname   (car params))
 						  (run-id     (cadr params))

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2860,21 +2860,34 @@
 ;; 
 (define (db:logpro-dat->csv dat stepname)
   (let ((res '()))
     (for-each
      (lambda (entry-name)
-       (let* ((value     (or (configf:lookup dat entry-name "measured")  "n/a"))
-	      (expected  (or (configf:lookup dat entry-name "expected")  "n/a"))
-	      (tolerance (or (configf:lookup dat entry-name "tolerance") "n/a"))
-	      (comment   (or (configf:lookup dat entry-name "comment")
-			     (configf:lookup dat entry-name "desc")      "n/a"))
-	      (status    (or (configf:lookup dat entry-name "status")    "n/a"))
-	      (type      (or (configf:lookup dat entry-name "expected")  "n/a")))
-	 (set! res (append
-		    res
-		    (list (list stepname entry-name expected tolerance comment status type))))
-	 ))
+       (if (equal? entry-name "final")
+	   (set! res (append 
+		      res
+		      (list
+		       (list stepname
+			     entry-name
+			     (configf:lookup dat entry-name "exit-code")    ;; 0 ;; Value
+			     0                                              ;; 1 ;; Expected
+			     0                                              ;; 2 ;; Tolerance
+			     "n/a"					    ;; 3 ;; Units
+			     (configf:lookup dat entry-name "message")      ;; 4 ;; Comment
+			     (configf:lookup dat entry-name "exit-status")  ;; 5 ;; Status
+			     "logpro"                                       ;; 6 ;; Type
+			     ))))
+	   (let* ((value     (or (configf:lookup dat entry-name "measured")  "n/a"))
+		  (expected  (or (configf:lookup dat entry-name "expected")  "n/a"))
+		  (tolerance (or (configf:lookup dat entry-name "tolerance") "n/a"))
+		  (comment   (or (configf:lookup dat entry-name "comment")
+				 (configf:lookup dat entry-name "desc")      "n/a"))
+		  (status    (or (configf:lookup dat entry-name "status")    "n/a"))
+		  (type      (or (configf:lookup dat entry-name "expected")  "n/a")))
+	     (set! res (append
+			res
+			(list (list stepname entry-name expected tolerance comment status type)))))))
      (hash-table-keys dat))
     res))
 
 ;; $MT_MEGATEST -load-test-data << EOF
 ;; foo,bar,   1.2,  1.9, >

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -71,11 +71,11 @@
 	       (status (configf:lookup dat "final" "exit-status"))
 	       (msg     (configf:lookup dat "final" "message")))
 	  (rmt:csv->test-data run-id test-id csvt)
 	  (cond
 	   ((equal? status "PASS") "PASS") ;; skip the message part if status is pass
-	   (status (conc (configf:lookup dat "final" "exit-status") ": " (configf:lookup dat "final" "message")))
+	   (status (conc (configf:lookup dat "final" "exit-status") ": " (if msg msg "no message")))
 	   (else #f)))
 	#f)))
 
 (define (launch:runstep ezstep run-id test-id exit-info m tal testconfig)
   (let* ((stepname       (car ezstep))  ;; do stuff to run the step

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -659,14 +659,15 @@
 ;;======================================================================
 ;;  T E S T   D A T A 
 ;;======================================================================
 
 (define (rmt:read-test-data run-id test-id categorypatt #!key (work-area #f)) 
-  (let ((tdb  (rmt:open-test-db-by-test-id run-id test-id work-area: work-area)))
-    (if tdb
-	(tdb:read-test-data tdb test-id categorypatt)
-	'())))
+  (rmt:send-receive 'read-test-data run-id (list run-id test-id categorypatt)))
+;;   (let ((tdb  (rmt:open-test-db-by-test-id run-id test-id work-area: work-area)))
+;;     (if tdb
+;; 	(tdb:read-test-data tdb test-id categorypatt)
+;; 	'())))
 
 (define (rmt:testmeta-add-record testname)
   (rmt:send-receive 'testmeta-add-record #f (list testname)))
 
 (define (rmt:testmeta-get-record testname)