diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index a3923ca4a1..6a657664f7 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2002-09-04 17:56 UTC+0200 Maurilio Longo <maurilio.longo@libero.it>
+   * harbour/source/rtl/tbrowse.prg
+     ! Fixed cell padding inside ::DispCell(). Character or memo fields have to be
+       padded right. Number fields have to be padded left.
+
 2002-09-03 19:10 UTC+0200 Maurilio Longo <maurilio.longo@libero.it>
    * harbour/source/rtl/teditor.prg
      ! fixed line splitting when a character is deleted from a line and there is a
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index ce1b1e4d01..c8bbd47a94 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -1306,10 +1306,10 @@ METHOD DispCell( nColumn, nColor ) CLASS TBrowse
 
    do case
    case cType $ "CM"
-      DispOut( PadL(Transform(ftmp, cPict), nWidth ), cColor )
+      DispOut( PadR(Transform(ftmp, cPict), nWidth ), cColor )
 
    case cType == "N"
-      DispOut( PadR(Transform(ftmp, cPict), nWidth ), cColor )
+      DispOut( PadL(Transform(ftmp, cPict), nWidth ), cColor )
 
    case cType == "D"
       cPict := iif(cPict == "", "@D", cPict)