Index: gutils.scm
==================================================================
--- gutils.scm
+++ gutils.scm
@@ -23,10 +23,11 @@
     (null? (filter (lambda (x)(> x 3)) delta))))
 
 (define gutils:colors
   '((PASS . "70 249 73")
     (FAIL . "253 33 49")
+    (PREQ_FAIL . "255 127 127")
     (SKIP . "230 230 0")))
 
 (define (gutils:get-color-spec effective-state)
   (or (alist-ref effective-state gutils:colors)
       (alist-ref 'FAIL gutils:colors)))
@@ -59,10 +60,11 @@
     ((REMOTEHOSTSTART)  (list "50 130 195"   state))
     ((RUNNING STARTED)          (list "9 131 232"    state))
     ((KILLREQ)          (list "39 82 206"    state))
     ((KILLED)           (list "234 101 17"   state))
     ((NOT_STARTED)      (case (string->symbol status)
+                          ((PREQ_FAIL)(list (gutils:get-color-spec 'PREQ_FAIL) status))
 			  ((CHECK STARTED)(list (gutils:get-color-spec 'SKIP) state))
 			  (else   (list "240 240 240"                 state))))
     ;; for xor mode below
     ;;
     ((CLEAN)