diff --git a/harbour/tests/working/testread.prg b/harbour/tests/working/testread.prg
index 5a8ec3cc4f..cd366f4e5d 100644
--- a/harbour/tests/working/testread.prg
+++ b/harbour/tests/working/testread.prg
@@ -21,6 +21,7 @@ function Main()
    local cWish := "Power   "
    local GetList := {}
 
+   SET COLOR TO GR+/B, W+/BG
    CLS
 
    @ 2, 2 SAY "Enter your name:" GET cName