diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index bb84af58e4..48bfc6a469 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-04-23 10:38 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/src/rtl/filesys.c
+    * casting to pacify warnings on some platforms which may use
+      negative errno codes
+
 2011-04-23 00:40 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com)
   * contrib/gtwvg/wvgwing.c
     ! Converted: remaining C++ comments to Ansi C style.
diff --git a/harbour/src/rtl/filesys.c b/harbour/src/rtl/filesys.c
index 74e87f8eab..00bf46a7f9 100644
--- a/harbour/src/rtl/filesys.c
+++ b/harbour/src/rtl/filesys.c
@@ -322,21 +322,21 @@
 
 #if defined( HB_OS_UNIX ) && defined( EINTR )
 #  define HB_FAILURE_RETRY( ret, exp ) \
-               do \
-               { \
-                  ( ret ) = ( exp ); \
-                  hb_fsSetIOError( ( ret ) != -1, 0 ); \
-               } \
-               while( ( ret ) == -1 && hb_fsOsError() == EINTR && \
-                      hb_vmRequestQuery() == 0 )
+            do \
+            { \
+               ( ret ) = ( exp ); \
+               hb_fsSetIOError( ( ret ) != -1, 0 ); \
+            } \
+            while( ( ret ) == -1 && hb_fsOsError() == ( HB_ERRCODE ) EINTR && \
+                   hb_vmRequestQuery() == 0 )
 #else
 #  define HB_FAILURE_RETRY( ret, exp ) \
-               do \
-               { \
-                  ( ret ) = ( exp ); \
-                  hb_fsSetIOError( ( ret ) != -1, 0 ); \
-               } \
-               while( 0 )
+            do \
+            { \
+               ( ret ) = ( exp ); \
+               hb_fsSetIOError( ( ret ) != -1, 0 ); \
+            } \
+            while( 0 )
 #endif
 
 static HB_BOOL s_fUseWaitLocks = HB_TRUE;