diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c
index beb0b71828..a18a20df7d 100644
--- a/harbour/source/rtl/filesys.c
+++ b/harbour/source/rtl/filesys.c
@@ -50,6 +50,8 @@
  *    hb_fsIsDrv()
  *    hb_fsIsDevice()
  *
+ * Copyright 2000 Luiz Rafael Culik <culik@sl.conex.net>
+ *    hb_fsEof()
  * See doc/license.txt for licensing terms.
  *
  */
@@ -1456,3 +1458,9 @@ BOOL hb_fsFile( BYTE * pFilename )
    return bIsFile;
 }
 
+BOOL    hb_fsEof( FHANDLE hFileHandle )
+{
+   int iResult;
+   iResult = eof(hFileHandle);
+   return ( iResult ? FALSE : TRUE );
+}