diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 7e4a3cf774..81816560b6 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-08-30 11:20 UTC-0300 Luiz Rafael Culik <culikr@uol.com.br>
+  * source/rtl/tget.prg
+    ! fix for DeleteAll() method when Variable is Date type Reported by Charles Kwon
+
 2002-08-30 18:05 UTC-0400 David G. Holm <dholm@jsd-llc.com>
   * source/rtl/dbdelim.prg
     ! Bug fix to pass cSeparator to appendtodb() instead of cDelimArg,
diff --git a/harbour/source/rtl/tget.prg b/harbour/source/rtl/tget.prg
index 37e2e9edf8..d3900c8286 100644
--- a/harbour/source/rtl/tget.prg
+++ b/harbour/source/rtl/tget.prg
@@ -1269,6 +1269,7 @@ METHOD DeleteAll() CLASS Get
       ::minus  := .f.
    case ::type == "D"
       xValue := CToD( "" )
+      ::BadDate := .f. 
    case ::type == "L"
       xValue := .f.
    endcase