@@ -144,11 +144,11 @@
 								  (set! newstatus a))
 						       #:editbox "YES"
 						       #:value currstatus
 						       #:expand "YES")))
 				  (iuplistbox-fill-list lb
-							(list "PASS" "FAIL" "n/a")
+							(list "PASS" "WARN" "FAIL" "CHECK" "n/a")
 							currstatus)
 				  lb)))
 			      (iup:hbox (iup:label "Comment:")
 					(iup:textbox #:action (lambda (val a b)
 								(set! currcomment b))
@@ -268,11 +268,15 @@
 			   (runtime    (db:test-get-run_duration test))
 			   (buttontxt  (if (equal? teststate "COMPLETED") teststatus teststate))
 			   (button     (vector-ref columndat rown))
 			   (color      (case (string->symbol teststate)
 					 ((COMPLETED)
-					  (if (equal? teststatus "PASS") "70 249 73" "223 33 49")) ;; greenish redish
+					  (if (equal? teststatus "PASS")
+					      "70 249 73"
+					      (if (equal? teststatus "WARN")
+						  "255 172 13"
+						  "223 33 49"))) ;; greenish orangeish redish
 					 ((LAUNCHED)         "101 123 142")
 					 ((CHECK)            "255 100 50")
 					 ((REMOTEHOSTSTART)  "50 130 195")
 					 ((RUNNING)          "9 131 232")
 					 ((KILLREQ)          "39 82 206")