1 files changed, 7 insertions, 1 deletions
diff --git a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
index de19cf0ba3c..25450efcbaa 100755
--- a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
@@ -51,7 +51,13 @@ if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
 
 print STDERR "Starting Receiver 1\n";
 
-$RE1->Spawn ();
+$RE1_result = $RE1->Spawn ();
+
+if ($RE1_result != 0) {
+    print STDERR "ERROR: Receiver 1 returned $RE1_result\n";
+    $NS->Kill ();
+    exit 1;
+}
 
 sleep $sleeptime;