diff --git a/ivtest/vlog95_reg.pl b/ivtest/vlog95_reg.pl
index 7451686b3..d9021a7a9 100755
--- a/ivtest/vlog95_reg.pl
+++ b/ivtest/vlog95_reg.pl
@@ -4,7 +4,7 @@
 #
 # This script is based on code with the following Copyright.
 #
-# Copyright (c) 1999-2023 Guy Hutchison (ghutchis@pacbell.net)
+# Copyright (c) 1999-2024 Guy Hutchison (ghutchis@pacbell.net)
 #
 #    This source code is free software; you can redistribute it
 #    and/or modify it in source code form under the terms of the GNU
@@ -55,9 +55,10 @@ if ($#ARGV != -1) {
     &read_regression_list("regress-vhdl.list",   $ver, $force_sv, "");
     &read_regression_list("regress-synth.list",  $ver, $force_sv, "-S");
 }
-&execute_regression($suffix, $with_valg);
+my $failed = &execute_regression($suffix, $with_valg);
 &close_report_file;
 
+exit $failed;
 
 #
 #  execute_regression sequentially compiles and executes each test in
@@ -282,4 +283,6 @@ sub execute_regression {
     &print_rpt("=" x 76 . "\n");
     &print_rpt("Test results:\n  Total=$total, Passed=$passed, Failed=$failed,".
                " Not Implemented=$not_impl, Expected Fail=$expected_fail\n");
+
+    return $failed;
 }
diff --git a/ivtest/vpi_reg.pl b/ivtest/vpi_reg.pl
index e46164219..03a192261 100755
--- a/ivtest/vpi_reg.pl
+++ b/ivtest/vpi_reg.pl
@@ -56,7 +56,9 @@ my $msg = $with_valg ? " (with valgrind)" : "";
 print ("Running VPI tests for Icarus Verilog version: $ver$msg.\n");
 print "-" x 76 . "\n";
 &read_regression_list;
-&execute_regression;
+my $failed = &execute_regression;
+
+exit $failed;
 
 #
 #  parses the regression list file
@@ -236,7 +238,8 @@ sub execute_regression {
     print "=" x 76 . "\n";
     print "Test results: Total=$total, Passed=$passed, Failed=$failed,".
           " Not Implemented=$not_impl\n";
-    exit $failed;
+
+    return $failed;
 }
 
 #
diff --git a/ivtest/vvp_reg.pl b/ivtest/vvp_reg.pl
index fb3cfafd8..4dc2853ca 100755
--- a/ivtest/vvp_reg.pl
+++ b/ivtest/vvp_reg.pl
@@ -4,7 +4,7 @@
 #
 # This script is based on code with the following Copyright.
 #
-# Copyright (c) 1999-2023 Guy Hutchison (ghutchis@pacbell.net)
+# Copyright (c) 1999-2024 Guy Hutchison (ghutchis@pacbell.net)
 #
 #    This source code is free software; you can redistribute it
 #    and/or modify it in source code form under the terms of the GNU
@@ -58,7 +58,7 @@ if ($#ARGV != -1) {
         &read_regression_list("regress-synth.list", $ver, $force_sv, "-S");
     }
 }
-$failed = &execute_regression($suffix, $strict, $with_valg);
+my $failed = &execute_regression($suffix, $strict, $with_valg);
 &close_report_file;
 
 exit $failed;
@@ -254,5 +254,5 @@ sub execute_regression {
     # Remove remaining temporary files
     system("rm -f *.tmp ivltests/*.tmp");
 
-    return($failed)
+    return $failed;
 }