diff --git a/harbour/source/rtl/files.c b/harbour/source/rtl/files.c
index 6a43c11153..fbc90371e7 100644
--- a/harbour/source/rtl/files.c
+++ b/harbour/source/rtl/files.c
@@ -610,9 +610,11 @@ HARBOUR HB_FILE()
 
         if( arg1_it )
         {
-                /* TODO: I'm thinking about this :( */
+           last_error = 0;
+           access(_parc(1), 0);
+           last_error = errno;
         }
-        _retl(0);
+        _retl(last_error==0?1:0);
         return;
 }