diff --git a/New/Shorewall/Actions.pm b/New/Shorewall/Actions.pm
index 210377cd6..1bff05d92 100644
--- a/New/Shorewall/Actions.pm
+++ b/New/Shorewall/Actions.pm
@@ -113,9 +113,7 @@ sub merge_levels ($$) {
 # Get Macro Name
 #
 sub isolate_basic_target( $ ) {
-    my $result = ( split '/' , $_[0] )[0];
-
-    ( split /:/, $result )[0];
+    ( split '/', ( split /:/ , $_[0] )[0] )[0];
 }
 
 #
diff --git a/New/Shorewall/Zones.pm b/New/Shorewall/Zones.pm
index 3a0c7b46e..0ea187a6b 100644
--- a/New/Shorewall/Zones.pm
+++ b/New/Shorewall/Zones.pm
@@ -301,7 +301,7 @@ sub zone_report()
 	    }
 	}
     
-	print STDERR "      *** $zone is an EMPTY ZONE ***\n" unless $printed || $type eq 'firewall';
+	warning_message "*** $zone is an EMPTY ZONE ***" unless $printed || $type eq 'firewall';
     }
 }