diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 55ffdb2838..fa8e458db2 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,10 @@
    For example:
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+     * cBuffer not initialized, fixed.
+2002-01-14 31:32 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
+
+2002-01-15 22:30 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
   * contrib/rdd_ads/ads1.c
     * Added virtual method adsExit() with a call of AdsApplicationExit()
 
diff --git a/harbour/source/rtl/direct.c b/harbour/source/rtl/direct.c
index 2413795901..91b5a81b20 100644
--- a/harbour/source/rtl/direct.c
+++ b/harbour/source/rtl/direct.c
@@ -131,6 +131,7 @@ HB_FUNC( DIRECTORY )
    /* Get the passed attributes and convert them to Harbour Flags */
 
    uiMask = HB_FA_ARCHIVE
+          | HB_FA_READONLY
           | HB_FA_DEVICE
           | HB_FA_TEMPORARY
           | HB_FA_SPARSE