1 files changed, 7 insertions, 2 deletions
diff --git a/TAO/examples/Simple/time-date/run_test.pl b/TAO/examples/Simple/time-date/run_test.pl
index f286bcf7c90..092430e81ce 100755
--- a/TAO/examples/Simple/time-date/run_test.pl
+++ b/TAO/examples/Simple/time-date/run_test.pl
@@ -23,7 +23,7 @@ if (PerlACE::is_vxworks_test()) {
 else {
   $SV = new PerlACE::Process ("server");
 }
-$CL = new PerlACE::Process ("client", "-f $iorfile -ORBSvcConf $conf");
+$CL = new PerlACE::Process ("client", "-f $iorfile -x -ORBSvcConf $conf");
 
 $SV->Spawn ();
 
@@ -40,7 +40,12 @@ if ($client != 0) {
     $status = 1;
 }
 
-$SV->Kill ();
+$server = $SV->WaitKill ($PerlACE::wait_interval_for_process_shutdown);
+
+if ($server != 0) {
+    print STDERR "ERROR: server returned $server\n";
+    $status = 1;
+}
 
 unlink $iorfile;