From 70a082a7a7bf274012be4bf26cdc0b43e915c5f0 Mon Sep 17 00:00:00 2001
From: Paul Tucker <ptucker@sympatico.ca>
Date: Wed, 4 Aug 1999 18:42:48 +0000
Subject: [PATCH] *** empty log message ***

---
 harbour/ChangeLog            | 4 ++++
 harbour/source/rtl/filesys.c | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0833dbb253..3d7a020dfc 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990804-14:30 EDT Paul Tucker <ptucker@sympatico.ca>
+   * source/rtl/filesys.c
+     * added a cast (reported by Matteo)
+
 19990804-20:30 GMT+1 Victor Szel <info@szelvesz.hu>
    * source/rtl/achoice.prg
      + Uses __COLORINDEX()
diff --git a/harbour/source/rtl/filesys.c b/harbour/source/rtl/filesys.c
index aff8fbbf8a..00606c36b5 100644
--- a/harbour/source/rtl/filesys.c
+++ b/harbour/source/rtl/filesys.c
@@ -791,7 +791,7 @@ HARBOUR HB_FREADSTR( void )
 
 HARBOUR HB_CURDIR( void )
 {
-   hb_retc( hb_fsCurDir( ( ISCHAR( 1 ) && hb_parclen( 1 ) ) ? (USHORT)( toupper( *hb_parc( 1 ) ) - 'A' + 1 ) : 0 ) );
+   hb_retc( (char *)hb_fsCurDir( ( ISCHAR( 1 ) && hb_parclen( 1 ) ) ? (USHORT)( toupper( *hb_parc( 1 ) ) - 'A' + 1 ) : 0 ) );
 }
 
 HARBOUR HB_BIN2I( void )