diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3f0733cb36..e6424893ed 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-31 03:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/dircmd.prg
+    * changed STOD() to HB_STOD()
+
 2007-08-31 03:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/include/hbapi.h
   * harbour/source/vm/dynsym.c
diff --git a/harbour/source/rtl/dircmd.prg b/harbour/source/rtl/dircmd.prg
index d2ba91da42..9c13e3ced1 100644
--- a/harbour/source/rtl/dircmd.prg
+++ b/harbour/source/rtl/dircmd.prg
@@ -105,9 +105,9 @@ STATIC PROCEDURE PutDBF( aDirEntry )
                 ASC( buffer ) ) != 0
 
          nRecCount := Bin2L( SubStr( buffer, 5, 4 ) )
-         dLastUpdate := SToD( StrZero( ASC( SubStr( buffer, 2, 1 ) ) + 1900, 4 ) +;
-                              StrZero( ASC( SubStr( buffer, 3, 1 ) ), 2 ) +;
-                              StrZero( ASC( SubStr( buffer, 4, 1 ) ), 2 ) )
+         dLastUpdate := hb_SToD( StrZero( ASC( SubStr( buffer, 2, 1 ) ) + 1900, 4 ) +;
+                                 StrZero( ASC( SubStr( buffer, 3, 1 ) ), 2 ) +;
+                                 StrZero( ASC( SubStr( buffer, 4, 1 ) ), 2 ) )
 
       ENDIF