diff --git a/harbour/tests/working/testread.prg b/harbour/tests/working/testread.prg
index fa3822cb0a..09669a0545 100644
--- a/harbour/tests/working/testread.prg
+++ b/harbour/tests/working/testread.prg
@@ -21,6 +21,8 @@ function Main()
    local cWish := "Power   "
    local GetList := {}
 
+   CLS
+
    @ 2, 2 SAY "Enter your name:" GET cName
    @ 4, 2 SAY "Enter your wish:" GET cWish
    READ