diff --git a/Shorewall/Perl/compiler.pl b/Shorewall/Perl/compiler.pl
index f47e5becf..766219b95 100755
--- a/Shorewall/Perl/compiler.pl
+++ b/Shorewall/Perl/compiler.pl
@@ -44,6 +44,8 @@ use Shorewall::Compiler;
 use Getopt::Long;
 
 sub usage( $ ) {
+    my $returnval = shift @_;
+
     print STDERR 'usage: compiler.pl [ <option> ... ] [ <filename> ]
 
   options are:
@@ -58,7 +60,8 @@ sub usage( $ ) {
     [ --test ]
     [ --family={4|6} ]
 ';
-    exit shift @_;
+
+    $returnval;
 }
 
 #
diff --git a/tools/testing/regression b/tools/testing/regression
index 764354add..04e09c4ed 100755
--- a/tools/testing/regression
+++ b/tools/testing/regression
@@ -34,8 +34,11 @@ DIRECTORIES="$*"
 
 for directory in $DIRECTORIES; do
     if [ -d $directory ]; then
+	existing=$(ls -l $directory/firewall 2> /dev/null);
 	if /sbin/shorewall -${OPTIONS} compile -t $directory $directory/firewall > $directory/compileroutput 2> $directory/compilererrors; then
-	    if [ -f $directory/firewall.last ]; then
+	    if [ "$existing" = "$(ls -l $directory/firewall)" ]; then
+		echo "Test $directory FAILED ******** No object produced"
+	    elif [ -f $directory/firewall.last ]; then
 		if diff -au $directory/firewall.last $directory/firewall > $directory/compare; then
 		    echo "Test $directory PASSED"
 		else