Index: automation/source/testtool/objtest.cxx
===================================================================
RCS file: /cvs/util/automation/source/testtool/objtest.cxx,v
retrieving revision 1.20
diff -u -p -r1.20 objtest.cxx
--- automation/source/testtool/objtest.cxx	6 Oct 2005 12:37:43 -0000	1.20
+++ automation/source/testtool/objtest.cxx	3 Feb 2006 17:40:30 -0000
@@ -2715,7 +2719,8 @@ void TestToolObj::DebugFindNoErrors( BOO
 
 SbxVariable* TestToolObj::Find( const String& aStr, SbxClassType Type)
 {
-	if ( BasicRuntimeAccess::IsRunInit() )            // wegen Find im "Global" Befehl des Basic
+	if ( BasicRuntimeAccess::IsRunInit() 
+	|| ( aStr == String( RTL_CONSTASCII_USTRINGPARAM( "ThisComponent" ) ) ) )            // wegen Find im "Global" Befehl des Basic
     	return NULL;
 
 	SbxVariableRef Old = SbxObject::Find(Str, Type );
