diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4eae63eeee..c8d873fe5e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,11 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-02-08 14:36 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/src/rtl/tbrowse.prg
+    ! set default minimal number of visible rows to ::rowpos() when
+      ::configure() method is called - clipper compatibility fix.
+
 2011-02-08 13:39 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * contrib/hbnetio/utils/hbnetio/netiocon.prg
     + Accepting notification events coming from the server
diff --git a/harbour/src/rtl/tbrowse.prg b/harbour/src/rtl/tbrowse.prg
index 69c40b069c..45c65402ff 100644
--- a/harbour/src/rtl/tbrowse.prg
+++ b/harbour/src/rtl/tbrowse.prg
@@ -1469,6 +1469,8 @@ METHOD doConfigure() CLASS TBROWSE
       ::nRowPos := 1
    ENDIF
 
+   ::nBufferPos := ::nRowPos
+
    RETURN Self