diff --git a/Shorewall/Perl/Shorewall/Compiler.pm b/Shorewall/Perl/Shorewall/Compiler.pm
index 40275c6ee..96865d65c 100644
--- a/Shorewall/Perl/Shorewall/Compiler.pm
+++ b/Shorewall/Perl/Shorewall/Compiler.pm
@@ -791,7 +791,7 @@ sub compiler {
     #
     # Process the rules file.
     #
-    process_rules;
+    process_rules( $convert );
     #
     # Add Tunnel rules.
     #
diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index 2728d15c1..b051d5156 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -2525,11 +2525,13 @@ sub classic_blacklist() {
 #
 # Process the BLRules and Rules Files
 #
-sub process_rules() {
+sub process_rules( $ ) {
+    my $convert = shift;
+    my $blrules = 0;
     #
     # Generate jumps to the classic blacklist chains
     #
-    my $blrules = classic_blacklist;
+    $blrules = classic_blacklist unless $convert;
     #
     # Process the blrules file
     #