Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -1271,13 +1271,13 @@
 		   (colnum 1))
 	  (if (> rownum max-row)(set! max-row rownum))
 	  (let* ((status  (vector-ref hed 3))
                  (val     (vector-ref hed (- colnum 1)))
                  (bgcolor (cond
-                           ((member (conc status) '("" "#<unspecified>"))
+                           ((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) ""))