@@ -324,12 +324,12 @@
 			    (lambda (state color)
 			      (for-each 
 			       (lambda (btn)
 				 (let* ((name     (iup:attribute btn "TITLE"))
 					(newcolor (if (equal? name state) color "192 192 192")))
-				   (if (not (colors-similar? newcolor (iup:attribute btn "BGCOLOR")))
-				       (iup:attribute-set! btn "BGCOLOR" newcolor))))
+				   (if (not (colors-similar? newcolor (iup:attribute btn "FGCOLOR")))
+				       (iup:attribute-set! btn "FGCOLOR" newcolor))))
 			       btns)))
 	       btns))
       (apply iup:hbox
 	     (iup:label "STATUS:" #:size "30x")
 	     (let* ((btns  (map (lambda (status)
@@ -358,12 +358,12 @@
 			    (lambda (status color)
 			      (for-each 
 			       (lambda (btn)
 				 (let* ((name     (iup:attribute btn "TITLE"))
 					(newcolor (if (equal? name status) color "192 192 192")))
-				   (if (not (colors-similar? newcolor (iup:attribute btn "BGCOLOR")))
-				       (iup:attribute-set! btn "BGCOLOR" newcolor))))
+				   (if (not (colors-similar? newcolor (iup:attribute btn "FGCOLOR")))
+				       (iup:attribute-set! btn "FGCOLOR" newcolor))))
 			       btns)))
 	       btns))))))
 
 (define (dashboard-tests:run-a-step info)
   #t)