diff --git a/harbour/source/rtl/seconds.c b/harbour/source/rtl/seconds.c
index 147c454041..75e196069b 100644
--- a/harbour/source/rtl/seconds.c
+++ b/harbour/source/rtl/seconds.c
@@ -84,3 +84,7 @@ HB_FUNC( SECONDS )
    hb_retnd( hb_dateSeconds() );
 }
 
+HB_FUNC( CLOCKS2SECS )
+{
+   hb_retnl( hb_parnl( 1 ) / CLOCKS_PER_SEC );
+}
\ No newline at end of file