@@ -200,23 +200,28 @@
 
 
 (define (rmt:get-toplevels-and-incompletes run-id running-deadtime remotehoststart-deadtime)
   (rmtmod:send-receive 'get-toplevels-and-incompletes run-id (list run-id running-deadtime remotehoststart-deadtime)))
 
+;; .final-status file is two lines:
+;; "state"
+;; "status"
+;;
 (define (rmt:get-status-from-final-status-file run-dir)
   (let ((infile (conc run-dir "/.final-status")))
-    ;; first verify we are able to write the output file
+    ;; first verify we are able to read the output file
     (if (not (file-read-access? infile))
         (begin 
 	  (debug:print 2 *default-log-port* "ERROR: cannot read " infile)
           (debug:print 2 *default-log-port* "ERROR: run-dir is " run-dir)
           #f
           )
 	(let ((res (with-input-from-file infile read-lines)))
 	  (if (null? res)
 	      #f
-	      (string-split (car res)))))))
+	      res))))) ;; (string-split (car res))))))) <== I would have preferred a single line STATE STATUS without "'s
+	      ;; (string-split (car res))))))) ;; DUNNO WHICH IS CORRECT
   
 ;;  select end_time-now from
 ;;      (select testname,item_path,event_time+run_duration as
 ;;                          end_time,strftime('%s','now') as now from tests where state in
 ;;      ('RUNNING','REMOTEHOSTSTART','LAUNCHED'));