From 8aacaa65d2e029f5d13b94469505219a9549c334 Mon Sep 17 00:00:00 2001
From: Paul Tucker <ptucker@sympatico.ca>
Date: Tue, 15 Jan 2002 02:34:58 +0000
Subject: [PATCH] 2002-01-14 31:32 UTC-0500 Paul Tucker <ptucker@sympatico.ca> 
  * source\rtl\direct.c     * updated default flags to include ReadOnly

---
 harbour/ChangeLog           | 4 ++++
 harbour/source/rtl/direct.c | 1 +
 2 files changed, 5 insertions(+)

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