diff --git a/harbour/tests/working/testbrw.prg b/harbour/tests/working/testbrw.prg
new file mode 100644
index 0000000000..df9fd17a2c
--- /dev/null
+++ b/harbour/tests/working/testbrw.prg
@@ -0,0 +1,7 @@
+function Main()
+
+   local oBrowse := TBrowse():New()
+
+   Alert( oBrowse:ClassName )
+
+return nil
\ No newline at end of file