diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 31098558f0..fc9b106e93 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990919-01:55 EDT Paul Tucker <ptucker@sympatico.ca>
+  * source/rtl/environ.c
+    * added 1 cast to an xgrab call.
+
 19990919-09:31 GMT+3 Alexander Kresin
   * source/hbpp/hbpp.c
     * fixed bug with repeating result clauses ( noted by Antonio Linares )
diff --git a/harbour/source/rtl/environ.c b/harbour/source/rtl/environ.c
index 5b2bd43b64..887255e084 100644
--- a/harbour/source/rtl/environ.c
+++ b/harbour/source/rtl/environ.c
@@ -287,7 +287,7 @@ HARBOUR HB_OS( void )
 
 char * hb_version( USHORT uiMode )
 {
-   char * pszVersion = hb_xgrab( HB_VERSION_BUFFER_LEN );
+   char * pszVersion = ( char * ) hb_xgrab( HB_VERSION_BUFFER_LEN );
 
    sprintf( pszVersion, "Harbour %d.%d Intl. (Build %d%s)  (%04d.%02d.%02d)",
       hb_major, hb_minor, hb_build, hb_revision, hb_year, hb_month, hb_day );