diff --git a/harbour/tests/testprof.prg b/harbour/tests/testprof.prg
index cc5232af68..97a17a6fa1 100644
--- a/harbour/tests/testprof.prg
+++ b/harbour/tests/testprof.prg
@@ -2,14 +2,15 @@
 
 function Main()
 
-   local oGet := GetNew()
-   local oBrw := TBrowseNew()
+   local dummy := __SetProfiler( .t. )  // First of all, we activate the profiler
+   local oGet  := GetNew()
+   local oBrw  := TBrowseNew()
    local n
 
    for n = 1 to 20000
       oGet:row = 10
    next
 
-   Profiler()  // look for a generated profiler.txt file on your disk
+   hb_Profiler( "profile.txt" )  // look for a generated profiler.txt file on your disk
 
 return nil
\ No newline at end of file