diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index dd002b4e6a..6a4b961388 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+19990603-13:30 EDT David G. Holm <dholm@jsd-llc.com>
+  Thanks go to Jose Lalin <dezac@corevia.com>
+  * source/rtl/dates.c
+    - localtime() returns tm_year with 1900 already subtracted from it,
+      so it is necessary to add 1900 back when formatting the date.
+
 19990603-18:30 CET Eddie Runia
   * source/rtl/classes.c; source/rtl/tclass.prg; source/rtl/arrays.c
   * include/ctoharb.h; include/extend.h
diff --git a/harbour/source/rtl/dates.c b/harbour/source/rtl/dates.c
index 90547ab16e..2567c0da93 100644
--- a/harbour/source/rtl/dates.c
+++ b/harbour/source/rtl/dates.c
@@ -440,7 +440,7 @@ HARBOUR DATE( void )
 
       time(&t);
       oTime = localtime(&t);
-      sprintf(szTime, "%04d%02d%02d", oTime->tm_year, oTime->tm_mon + 1,
+      sprintf(szTime, "%04d%02d%02d", oTime->tm_year + 1900, oTime->tm_mon + 1,
 oTime->tm_mday);
       _retds(szTime);
    }