diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b90c898279..ebe8e8fdf6 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,9 @@
+2001-10-30 11:01 GMT Dave Pearson <davep@davep.org>
+   * source/rtl/filesys.c
+     * Fixed the Un*x oriented code in hb_fsMkDir so that it sets
+       S_IXUSR as well as S_IWUSR and S_IRUSR when making the directory.
+       Without it the directory can't be entered or used.
+	
 2001-10-29 14:14 GMT+1 Maurilio Longo <maurilio.longo@libero.it>
    * contrib/mysql/readme.txt
      * updated
diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c
index f07c114c99..977ccf9bcd 100644
--- a/harbour/source/rtl/filesys.c
+++ b/harbour/source/rtl/filesys.c
@@ -1246,7 +1246,7 @@ BOOL    hb_fsMkDir( BYTE * pDirname )
    errno = 0;
 
    #if !defined(__WATCOMC__) && !defined(__BORLANDC__) && !defined(__IBMCPP__) && !defined(__MINGW32__)
-      iResult = mkdir( ( char * ) pDirname, S_IWUSR | S_IRUSR );
+      iResult = mkdir( ( char * ) pDirname, S_IWUSR | S_IRUSR | S_IXUSR );
    #else
       iResult = mkdir( ( char * ) pDirname );
    #endif