Index: Makefile
==================================================================
--- Makefile
+++ Makefile
@@ -27,11 +27,11 @@
    process.scm runs.scm tasks.scm tests.scm genexample.scm \
    http-transport.scm filedb.scm tdb.scm \
    client.scm mt.scm \
    ezsteps.scm lock-queue.scm sdb.scm \
    rmt.scm api.scm subrun.scm \
-   portlogger.scm archive.scm env.scm diff-report.scm cgisetup/models/pgdb.scm
+   portlogger.scm archive.scm env.scm diff-report.scm cgisetup/models/pgdb.scm 
 
 # module source files
 MSRCFILES = ftail.scm
 
 # Eggs to install (straightforward ones)
@@ -278,11 +278,11 @@
 	chmod a+x $(PREFIX)/bin/dashboard
 	$(INSTALL) dboard $(PREFIX)/bin/.$(ARCHSTR)/dboard
 
 install : $(PREFIX)/bin/.$(ARCHSTR) $(PREFIX)/bin/.$(ARCHSTR)/mtest $(PREFIX)/bin/megatest \
           $(PREFIX)/bin/.$(ARCHSTR)/dboard $(PREFIX)/bin/dashboard $(HELPERS) $(PREFIX)/bin/nbfake \
-          $(PREFIX)/bin/serialize-env
+          $(PREFIX)/bin/serialize-env \
 	  $(PREFIX)/bin/nbfind $(PREFIX)/bin/loadrunner $(PREFIX)/bin/viewscreen $(PREFIX)/bin/mt_xterm \
 	  $(PREFIX)/share/docs/megatest_manual.html $(PREFIX)/bin/remrun \
 	  $(PREFIX)/share/docs/megatest_manual.html $(PREFIX)/bin/remrun $(PREFIX)/bin/mtutil \
 	  $(PREFIX)/bin/tcmt $(PREFIX)/share/db/mt-pg.sql \
           $(PREFIX)/share/js/jquery-3.1.0.slim.min.js 

Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -2081,19 +2081,21 @@
 
 ;; clear vars matching pattern, run proc, set vars back
 ;; if proc is a string run that string as a command with
 ;; system.
 ;;
-(define *common:orig-env* (if (get-environment-variable "MT_ORIG_ENV")
-                              (with-input-from-string
-                                  (z3:decode-buffer (base64:base64-decode (get-environment-variable "MT_ORIG_ENV")))
-                                read)
-                              (filter-map (lambda (x)
-                                            (if (string-match "^MT_.*" (car x))
-                                                #f
-                                                x))
-                                          (get-environment-variables))))
+(define *common:orig-env*
+  (let ((envvars (get-environment-variables)))
+    (if (get-environment-variable "MT_ORIG_ENV")
+        (with-input-from-string
+            (z3:decode-buffer (base64:base64-decode (get-environment-variable "MT_ORIG_ENV")))
+          read)
+        (filter-map (lambda (x)
+                      (if (string-match "^MT_.*" (car x))
+                          #f
+                          x))
+                    envvars))))
 
 (define (common:with-orig-env proc)
   (let  ((current-env (get-environment-variables)))
     (for-each (lambda (x) (unsetenv (car x)))             current-env)
     (for-each (lambda (x) (setenv (car x) (cdr x))) *common:orig-env*)

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -1273,11 +1273,11 @@
 	  (let* ((status  (vector-ref hed 3))
                  (val     (vector-ref hed (- colnum 1)))
                  (bgcolor (cond
                            ((member (conc status) '("" "#<unspecified>"))
                             running-color)
-                           ((member (conc status) '("0" 0))
+                           ((member (conc status) '("0" 0 "-"))
                             white)
                            (else failcolor)))
 		 (mtrx-rc (conc rownum ":" colnum)))
             ;;(print "BB> status=>"status"< bgcolor="bgcolor)
 	    (iup:attribute-set! steps-matrix  mtrx-rc (if val (conc val) ""))