diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 8fbed5e642..5ee778e19d 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990802-18:23 GMT+1 Victor Szel <info@szelvesz.hu>
+   + source/tools/mathx.c - Added PI()
+     Posted by Matteo Baccan (baccan@isanet.it)
+
 19990802-17:53 GMT+1 Victor Szel <info@szelvesz.hu>
    ! source/rtl/setkey.prg - Fix: aSetKeys := aClone( OldKeys )
 
diff --git a/harbour/source/tools/mathx.c b/harbour/source/tools/mathx.c
index efa2e1b94f..1d636170e9 100644
--- a/harbour/source/tools/mathx.c
+++ b/harbour/source/tools/mathx.c
@@ -137,3 +137,7 @@ HARBOUR HB_TANH( void )
       hb_retnd(0);
 }
 
+HARBOUR HB_PI( void )
+{
+   hb_retnd( 3.141592653589793 );
+}