diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index e6035f1b4a..58de11098b 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,11 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+
+2002-01-08 09:52 UTC+0100 Patrick Mast <email@patrickmast.com>
+   * source/compiler/genc.c
+   * source/compiler/genjava.c
+   * source/compiler/genobj32.c
    * source/compiler/hbusage.c
    * source/common/hbver.c
      * changed decimal build nr in "Alpha build .."
diff --git a/harbour/source/rtl/direct.c b/harbour/source/rtl/direct.c
index d75cf21367..c9090780f5 100644
--- a/harbour/source/rtl/direct.c
+++ b/harbour/source/rtl/direct.c
@@ -117,7 +117,7 @@ HB_FUNC( DIRECTORY )
 
    /* Get the passed attributes and convert them to Harbour Flags */
 
-   uiMask = HB_FA_ARCHIVE | HB_FA_READONLY;
+   uiMask = HB_FA_ARCHIVE | HB_FA_NORMAL;
    if( pAttributes && hb_itemGetCLen( pAttributes ) > 0 )
       uiMask |= hb_fsAttrEncode( hb_itemGetCPtr( pAttributes ) );