1 files changed, 1 insertions, 1 deletions
diff --git a/TAO/examples/POA/POA_BiDir/run_test.pl b/TAO/examples/POA/POA_BiDir/run_test.pl
index 15c52166829..7f85a19af68 100755
--- a/TAO/examples/POA/POA_BiDir/run_test.pl
+++ b/TAO/examples/POA/POA_BiDir/run_test.pl
@@ -8,7 +8,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 use lib '../../../../bin';
 use PerlACE::Run_Test;
 
-$T = new PerlACE::Process ("NewPOA");
+$T = new PerlACE::Process ("POA_BiDir");
 
 $test = $T->SpawnWaitKill (60);