diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0b7b63c5d4..8e162d50fa 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2000-05-23 16:45 GMT-4 David G. Holm <dholm@jsd-llc.com>
+
+  * source/rtl/tgetlist.prg
+    ! Corrected the name of the TGetList class creation function.
+
 2000-05-23 13:40 GMT-4 David G. Holm <dholm@jsd-llc.com>
 
   + doc/cvs_tips.txt
diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index 450c918566..b462fada2b 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -58,7 +58,7 @@
 
 #define K_UNDO          K_CTRL_U
 
-function TGetListNew( GetList )
+function TGetList( GetList )
 
    LOCAL oClass := TClass():New( "TGETLIST" )