diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b4152c1e20..81feb533c0 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-10-03 00:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rtl/filesys.c
+    * added workaround for missing S_IREAD, S_IWRITE and S_IEXEC in OS2
+      when _XOPEN_SOURCE is defined
+
 2008-10-02 23:16 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
   * include/hbsetup.ch
     ! Removed some company names from comments.
diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c
index a42828c808..381060bfa2 100644
--- a/harbour/source/rtl/filesys.c
+++ b/harbour/source/rtl/filesys.c
@@ -272,6 +272,19 @@
    #define O_LARGEFILE  0       /* O_LARGEFILE is used for LFS in 32-bit Linux */
 #endif
 
+#if !defined( HB_OS_UNIX )
+   #if !defined( S_IREAD ) && defined( S_IRUSR )
+      #define S_IREAD   S_IRUSR
+   #endif
+   #if !defined( S_IWRITE ) && defined( S_IWUSR )
+      #define S_IWRITE  S_IWUSR
+   #endif
+   #if !defined( S_IEXEC ) && defined( S_IXUSR )
+      #define S_IEXEC   S_IXUSR
+   #endif
+#endif
+
+
 #if defined(HAVE_POSIX_IO) || defined( HB_WIN32_IO ) || defined(_MSC_VER) || defined(__MINGW32__) || defined(__LCC__) || defined(__DMC__)
 /* Only compilers with Posix or Posix-like I/O support are supported */
    #define HB_FS_FILE_IO