Index: trunk/ippScripts/scripts/detrend_reject_exp.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 11321)
+++ trunk/ippScripts/scripts/detrend_reject_exp.pl	(revision 11455)
@@ -66,5 +66,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	&my_die("Unable to perform dettool -residexp: $error_code", $det_id, $iter, $error_code);
     }
@@ -189,5 +189,5 @@
 	    run(command => $command, verbose => 1);
 	unless ($success) {
-	    $error_code = $error_code >> 8;
+	    $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	    &my_die("Unable to perform dettool -updateresidexp: $error_code", $det_id, $iter, $error_code);
 	}
@@ -227,5 +227,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -adddetrunsummary: $error_code");
 	exit($error_code);
@@ -247,5 +247,5 @@
 	run(command => $command, verbose => 1);
     unless ($success) {
-	$error_code = $error_code >> 8;
+	$error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
 	warn("Unable to perform dettool -updatedetrun: $error_code");
 	exit($error_code);