diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f2836a6efc..19b9b09f54 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,19 @@
    2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2007-09-10 12:01 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+   * source/rtl/color53.prg
+     + Added HB_COMPAT_C53 guards.
+
+   * source/rtl/tgetlist.prg
+     + Two new methods to return Self rather than NIL.
+
+   * source/rtl/einstvar.prg
+     + Added HB_C52_STRICT branch.
+
+   * source/rtl/tbrowse.prg
+     + Continued prev. changed.
+
 2007-09-10 03:38 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
    * source/rtl/scrollbr.prg
    * source/rtl/tpopup.prg
diff --git a/harbour/source/rtl/color53.prg b/harbour/source/rtl/color53.prg
index f41a56cde7..c08bc90de8 100644
--- a/harbour/source/rtl/color53.prg
+++ b/harbour/source/rtl/color53.prg
@@ -52,6 +52,8 @@
 
 #include "common.ch"
 
+#ifdef HB_COMPAT_C53
+
 FUNCTION GetClrPair( cColor, nColor )
    LOCAL nPos
 
@@ -211,3 +213,5 @@ FUNCTION ApplyDefau( cColor, xClr1, xClr2, xClr3, xClr4, xClr5, xClr6, xClr7, xC
    NEXT
 
    RETURN cClrDefa
+
+#endif
diff --git a/harbour/source/rtl/einstvar.prg b/harbour/source/rtl/einstvar.prg
index d6847ef034..2f71adc1a5 100644
--- a/harbour/source/rtl/einstvar.prg
+++ b/harbour/source/rtl/einstvar.prg
@@ -73,7 +73,11 @@ FUNCTION _eInstVar( oVar, cMethod, xValue, cType, nSubCode, bValid )
       oError:severity := 2
       oError:cansubstitute := .T.
       oError:subsystem := oVar:classname
+#ifdef HB_C52_STRICT
+      HB_SYMBOL_UNUSED( cMethod )
+#else
       oError:operation := cMethod
+#endif
       oError:subcode := nSubCode
       oError:args := { xValue }
       xValue := EVAL( ERRORBLOCK(), oError )
diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg
index 9c52aad364..c78202d483 100644
--- a/harbour/source/rtl/tbrowse.prg
+++ b/harbour/source/rtl/tbrowse.prg
@@ -503,6 +503,8 @@ METHOD delColumn( nPos ) CLASS TBrowse
    ASize( ::aColsWidth, ::nColumns )
    ADel( ::aColsPos, nPos )
    ASize( ::aColsPos, ::nColumns )
+   ADel( ::aColsInfo, nPos )
+   ASize( ::aColsInfo, ::nColumns )
 
    if ::nColumns < ::nFrozenCols
       ::nFrozenCols := 0
diff --git a/harbour/source/rtl/tgetlist.prg b/harbour/source/rtl/tgetlist.prg
index bd28e83a55..7ebccb491c 100644
--- a/harbour/source/rtl/tgetlist.prg
+++ b/harbour/source/rtl/tgetlist.prg
@@ -1444,7 +1444,7 @@ METHOD ShowGetMsg( aMsg ) CLASS HBGetList
    HB_SYMBOL_UNUSED( aMsg )
 #endif
 
-   RETURN NIL
+   RETURN Self
 
 METHOD EraseGetMsg( aMsg ) CLASS HBGetList
 
@@ -1464,7 +1464,7 @@ METHOD EraseGetMsg( aMsg ) CLASS HBGetList
    HB_SYMBOL_UNUSED( aMsg )
 #endif
 
-   RETURN NIL
+   RETURN Self
 
 #endif