@@ -24,16 +24,21 @@
 
 (define (gutils:get-color-for-state-status state status);; #!key (get-label #f))
   ;; ((if get-label cadr car)
    (case (string->symbol state)
      ((COMPLETED)
-      (if (equal? status "PASS")
-	  '("70 249 73" "PASS")
-	  (if (or (equal? status "WARN")
-		  (equal? status "WAIVED"))
-	      (list "255 172 13" status)
-	      (list "223 33 49"  status)))) ;; greenish orangeish redish
+      (case (string->symbol status)
+	((PASS)        (list "70  249 73" status))
+	((WARN WAIVED) (list "255 172 13" status))
+	((SKIP)        (list "230 230 0" status))
+	(else (list "223 33 49" status))))
+     ;;      (if (equal? status "PASS")
+     ;;	  '("70 249 73" "PASS")
+     ;;	  (if (or (equal? status "WARN")
+     ;;		  (equal? status "WAIVED"))
+     ;;	      (list "255 172 13" status)
+     ;;	      (list "223 33 49"  status)))) ;; greenish orangeish redish
      ((LAUNCHED)         (list "101 123 142"  state))
      ((CHECK)            (list "255 100 50"   state))
      ((REMOTEHOSTSTART)  (list "50 130 195"   state))
      ((RUNNING)          (list "9 131 232"    state))
      ((KILLREQ)          (list "39 82 206"    state))