diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index df8b2a1c9a..6a3fa842b2 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-08-24 14:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/utils/hbdot/hbdot.prg
+    ! fixed typo in history updating
+
 2007-08-24 03:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/source/rtl/gttrm/gttrm.c
   * harbour/source/vm/runner.c
diff --git a/harbour/utils/hbdot/hbdot.prg b/harbour/utils/hbdot/hbdot.prg
index 88c1aed015..aa7f632913 100644
--- a/harbour/utils/hbdot/hbdot.prg
+++ b/harbour/utils/hbdot/hbdot.prg
@@ -149,7 +149,7 @@ PROCEDURE _APPMAIN( cFile, ... )
                AADD( aHistory, cLine )
             ELSE
                ADEL( aHistory, 1 )
-               aHistory[ 1 ] := cLine
+               aHistory[ LEN( aHistory ) ] := cLine
             ENDIF
          ENDIF
          nHistIndex := LEN( aHistory ) + 1