1 files changed, 3 insertions, 1 deletions
diff --git a/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl b/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl
index 7d47e3d10ad..f484f45ddbe 100755
--- a/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl
+++ b/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl
@@ -37,7 +37,9 @@ $Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORinput file://$s
 #$Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORinput file://$supplier_ior -ORBSvcConf $consumer_conf -ORBDebugLevel 1";
 
 unlink $naming_ior;
-$Naming->Spawn ();
+if ($Naming->Spawn () == -1) {
+  exit 1;
+}
 
 if (PerlACE::waitforfile_timed ($naming_ior, $startup_timeout) == -1) {
   print STDERR "ERROR: waiting for the naming service to start\n";