diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 190a110f98..1949f143b0 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19990901-17:59 GMT+1 Bruno Cantero <bruno@issnet.net>
+   * source/rdd/dbcmd.c
+     + Added Lock() function
+
 19990901-17:20 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/rtl/set.c
     funclist.txt
diff --git a/harbour/source/rdd/dbcmd.c b/harbour/source/rdd/dbcmd.c
index 3c28c48d51..c4052da538 100644
--- a/harbour/source/rdd/dbcmd.c
+++ b/harbour/source/rdd/dbcmd.c
@@ -98,6 +98,7 @@ HARBOUR HB_FLOCK( void );
 HARBOUR HB_FOUND( void );
 HARBOUR HB_HEADER( void );
 HARBOUR HB_LASTREC( void );
+HARBOUR HB_LOCK( void );
 HARBOUR HB_LUPDATE( void );
 HARBOUR HB_NETERR( void );
 HARBOUR HB_RDDLIST( void );
@@ -1586,6 +1587,23 @@ HARBOUR HB_LASTREC( void )
    HB_RECCOUNT();
 }
 
+HARBOUR HB_LOCK( void )
+{
+   DBLOCKINFO pLockInfo;
+
+   pLockInfo.fResult = FALSE;
+   if( pCurrArea )
+   {
+      pLockInfo.itmRecID = 0;
+      pLockInfo.uiMethod = FILE_LOCK;
+      SELF_LOCK( ( AREAP ) pCurrArea->pArea, &pLockInfo );
+   }
+   else
+      hb_errRT_DBCMD( EG_NOTABLE, 2001, 0, "LOCK" );
+
+   hb_retl( pLockInfo.fResult );
+}
+
 HARBOUR HB_LUPDATE( void )
 {
    if( !pCurrArea )