1 files changed, 5 insertions, 4 deletions

diff --git a/TAO/tests/Collocation_Exception_Test/run_test.pl b/TAO/tests/Collocation_Exception_Test/run_test.pl
index 898b1153228..82f9dfad9c2 100755
--- a/TAO/tests/Collocation_Exception_Test/run_test.pl
+++ b/TAO/tests/Collocation_Exception_Test/run_test.pl
@@ -8,18 +8,19 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 use lib "$ENV{ACE_ROOT}/bin";
 use PerlACE::Run_Test;
 
-$iorfile = PerlACE::LocalFile ("test.ior");
-unlink $iorfile;
+$iorbase = "test.ior";
 $status = 0;
 
 if (PerlACE::is_vxworks_test()) {
     $SV = new PerlACE::ProcessVX ("Collocated_Test");
-    $SV->Arguments ("-o test.ior -k file://test.ior");
+    $iorfile = $iorbase;
 }
 else {
     $SV = new PerlACE::Process ("Collocated_Test");
-    $SV->Arguments ("-o $iorfile -k file://$iorfile");
+    $iorfile = PerlACE::LocalFile ("test.ior");
 }
+unlink $iorfile;
+$SV->Arguments ("-o $iorfile -k file://$iorfile");
 
 print STDERR "======== Running in Default Mode \n";
 $sv = $SV->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation);