diff --git a/harbour/source/rtl/tbcolumn.prg b/harbour/source/rtl/tbcolumn.prg
index 32cd6e51fc..16f95dc82a 100644
--- a/harbour/source/rtl/tbcolumn.prg
+++ b/harbour/source/rtl/tbcolumn.prg
@@ -215,8 +215,7 @@ METHOD setStyle( nStyle, lNewValue ) CLASS TBColumn
 
 METHOD New( cHeading, bBlock ) CLASS TBColumn
 
-   /* NOTE: CA-Cl*pper will allow any types for the heading here. [vszakats] */
-   ::cHeading := cHeading
+   ::cHeading := cHeading /* NOTE: CA-Cl*pper will allow any types for the heading here. [vszakats] */
    ::bBlock := bBlock /* NOTE: CA-Cl*pper allows any types here. [vszakats] */
 
    RETURN Self