From 28a60bb64a0b52154ceb0e8992021ca56ea40248 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Wed, 4 Aug 1999 13:04:26 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/tests/working/testread.prg | 2 ++
 1 file changed, 2 insertions(+)

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