diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 9e7cec1015..c0ba27c2c8 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-07-16 15:19 GMT+1 Patrick Mast <harbour@PatrickMast.com>
+   * source/rtl/profiler.prg
+     * Renamed function from Profiler() to HB_Profiler()
+
 2001-07-16 13:00 GMT+1 Patrick Mast <harbour@PatrickMast.com>
    * source/rtl/profiler.prg
      - Removed <lOnlyUsed> parameter
diff --git a/harbour/source/rtl/profiler.prg b/harbour/source/rtl/profiler.prg
index c845b27133..9d3f6941c9 100644
--- a/harbour/source/rtl/profiler.prg
+++ b/harbour/source/rtl/profiler.prg
@@ -59,7 +59,7 @@
  *           this Profiler(.t.), the profiler.txt will only be filled
  *           with used classes and/or functions.
  *
- *  2001-07-16 13:00 GMT+1
+ * 2001-07-16 13:00 GMT+1
  *    - Removed <lOnlyUsed> parameter
  *    + Added <cFile> parameter.
  *    + Added <lAll> parameter
@@ -82,11 +82,14 @@
  *      Profiler("profiler.txt", .t.)
  *       => Writes ALL profiler info to <profiler.txt> and returns Array of
  *          profiler info. Array contains ALL functions/classes.
+ *
+ * 2001-07-16 15:19 GMT+1
+ *    * Renamed function from Profiler() to HB_Profiler()
  */
 
 #define CRLF HB_OsNewLine()
 
-Function Profiler(cFile, lAll)
+Function HB_Profiler(cFile, lAll)
 LOCAL n, m, cClass, aFunProcInfo, aInfo, aMethodInfo
 LOCAL hFile, aProf:={}, cText:=""