diff --git a/harbour/tests/working/testbrw.prg b/harbour/tests/working/testbrw.prg
index df9fd17a2c..5196db5747 100644
--- a/harbour/tests/working/testbrw.prg
+++ b/harbour/tests/working/testbrw.prg
@@ -1,7 +1,12 @@
+// Harbour Class TBrowse and TBColumn sample
+
 function Main()
 
    local oBrowse := TBrowse():New()
 
-   Alert( oBrowse:ClassName )
+   oBrowse:AddColumn( TBColumnNew( "Test", { || "This is a test" } ) )
 
-return nil
\ No newline at end of file
+   Alert( oBrowse:ClassName() )
+   Alert( oBrowse:GetColumn( 1 ):ClassName() )
+
+return nil