diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 1e4dd944a3..f3924c2964 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+19990816-12:39 GMT+1 Antonio Linares <alinares@fivetech.com>
+   + source/rtl/browdb.prg
+     * source code for TBrowseDb()
+   * source/rtl/tbrowse.prg
+     * removed source code for TBrowseDb()
+   * harbour/makefile.b32
+     * browdb module added.
+
 19990816-12:03 GMT+1 Antonio Linares <alinares@fivetech.com>
    * source/vm/hvm.c
      * Enhanced ProcName() returned information.
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index 41fd3e94b6..10796c187e 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -576,50 +576,3 @@ function TBrowseNew( nTop, nLeft, nBottom, nRight )
 
 return oBrw
 
-function TBrowseDb( nTop, nLeft, nBott, nRight )
-
-   local oTb := TBrowseNew( nTop, nLeft, nBott, nRight )
-
-   oTb:SkipBlock     := { | n | TBSkip( n ) }
-   oTb:GoTopBlock    := { || DbGoTop() }
-   oTb:GoBottomBlock := {|| DbGoBottom() }
-
-Return oTb
-
-static function TbSkip( nRecs )
-
-   local nSkipped := 0
-
-   if _LastRec() != 0
-      if nRecs == 0
-         DbSkip( 0 )
-      elseif nRecs > 0 .and. _Recno() != _LastRec() + 1
-         while nSkipped < nRecs
-            DbSkip( 1 )
-            if Eof()
-               DbSkip( -1 )
-               exit
-            endif
-            ++nSkipped
-         end
-      elseif nRecs < 0
-         while nSkipped > nRecs
-            DbSkip( -1 )
-            if Bof()
-               exit
-            endif
-            --nSkipped
-         end
-      endif
-   endif
-
-return nSkipped
-
-static function _LastRec()  // Waiting for those function to become available
-
-return 0
-
-static function _RecNo()  // Waiting for those function to become available
-
-return 0
-