1 files changed, 8 insertions, 2 deletions
diff --git a/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl b/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl
index d2c6c3d90cc..aa518f5ef55 100755
--- a/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/Blocking/run_test.pl
@@ -30,8 +30,14 @@ $STC = new PerlACE::Process ("Structured_Consumer");
 
 $client_args = "-ORBInitRef NameService=iioploc://localhost:" .
                "$port/NameService";
-$NS->Spawn ();
-$TS->Spawn ();
+if ($NS->Spawn () == -1) {
+    exit 1;
+}
+
+if ($TS->Spawn () == -1) {
+    $NS->Kill ();
+    exit 1;
+}
 
 if (PerlACE::waitforfile_timed ($notifyior, 20) == -1) {
     print STDERR "ERROR: waiting for the notify service to start\n";