1 files changed, 6 insertions, 1 deletions
diff --git a/TAO/tests/File_IO/run_test.pl b/TAO/tests/File_IO/run_test.pl
index 32f1198ef12..302f5244e4b 100755
--- a/TAO/tests/File_IO/run_test.pl
+++ b/TAO/tests/File_IO/run_test.pl
@@ -13,7 +13,12 @@ $status = 0;
 
 unlink $iorfile;
 
-$SV = new PerlACE::Process ("server", "-o $iorfile");
+if (PerlACE::is_vxworks_test()) {
+    $SV = new PerlACE::ProcessVX ("server", "-o server.ior");
+}
+else {
+    $SV = new PerlACE::Process ("server", "-o $iorfile");
+}
 $CL = new PerlACE::Process ("client", "-k $iorfile");
 
 $SV->Spawn ();