diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c7a753da2e..c78c3b0d3c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-08-22 01:42 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
+   * source/rtl/tbrowse.prg
+     * now that DispBox() works as expected I can use it even for 1 line headers/
+       footers inside ::RedrawHeaders()
+
 2001-08-22 01:25 GMT+2 Maurilio Longo <maurilio.longo@libero.it>
    * source/rtl/gtos2.c
      + Driver tries to set codepage 437 on startup. Needed by box drawing functions
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index f706eec191..8e54f02c49 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -715,14 +715,8 @@ METHOD RedrawHeaders(nWidth) CLASS TBrowse
 
    if ::lHeaders          // Drawing headers
 
-      if ::nHeaderHeight > 1
-         // Clear area of screen occupied by headers
-         DispBox(::nTop, ::nLeft, ::nTop + ::nHeaderHeight - 1, ::nRight, cBlankBox, ::ColorSpec)
-
-      else
-         DispOutAt(::nTop, ::nLeft, Space(::nRight - ::nLeft + 1), ::ColorSpec )
-
-      endif
+      // Clear area of screen occupied by headers
+      DispBox(::nTop, ::nLeft, ::nTop + ::nHeaderHeight - 1, ::nRight, cBlankBox, ::ColorSpec)
 
       // Set cursor at first field start of description
       DevPos(::nTop, ::nLeft + (( nWidth - ::nColsWidth ) / 2))
@@ -787,13 +781,7 @@ METHOD RedrawHeaders(nWidth) CLASS TBrowse
    if ::lFooters                // Drawing footers
 
       // Clear area of screen occupied by footers
-      if ::nFooterHeight > 1
-         DispBox(::nBottom - ::nFooterHeight + 1, ::nLeft, ::nBottom, ::nRight, cBlankBox, ::ColorSpec)
-
-      else
-         DispOutAt(::nBottom, ::nLeft, Space(::nRight - ::nLeft + 1), ::ColorSpec)
-
-      endif
+      DispBox(::nBottom - ::nFooterHeight + 1, ::nLeft, ::nBottom, ::nRight, cBlankBox, ::ColorSpec)
 
       // Set cursor at first field start of description
       DevPos(::nBottom, ::nLeft + (( nWidth - ::nColsWidth ) / 2))
@@ -1278,8 +1266,6 @@ METHOD WriteMLineText(cStr, nPadLen, lHeader, cColor) CLASS TBrowse
             DevPos(nRow + n - 1, nCol)
             DispOut(PadR(__StrToken(@cS, n, ";"), nPadLen), cColor)
 
-            //cSubStr := iif((nSemiCPos := Rat(";", cStr)) <> 0, Right(cStr, Len(cStr) - nSemiCPos), cStr)
-            //cStr := Left(cStr, nSemiCPos - 1)
          next
 
          DevPos(nRow, nCol + nPadLen)
@@ -1300,9 +1286,6 @@ METHOD WriteMLineText(cStr, nPadLen, lHeader, cColor) CLASS TBrowse
          for n := 0 to (::nFooterHeight - 1)
             DevPos(nRow - n, nCol)
             DispOut(PadR(__StrToken(@cS, ::nFooterHeight - n, ";"), nPadLen), cColor)
-
-            //cSubStr := iif((nSemiCPos := Rat(";", cStr)) <> 0, Right(cStr, Len(cStr) - nSemiCPos), cStr)
-            //cStr := Left(cStr, nSemiCPos - 1)
          next
 
          DevPos(nRow, nCol + nPadLen)