diff --git a/Shorewall/Perl/Shorewall/Nat.pm b/Shorewall/Perl/Shorewall/Nat.pm
index 46ab38a3e..3116fc52b 100644
--- a/Shorewall/Perl/Shorewall/Nat.pm
+++ b/Shorewall/Perl/Shorewall/Nat.pm
@@ -35,7 +35,7 @@ use strict;
 
 our @ISA = qw(Exporter);
 our @EXPORT = qw( setup_masq setup_nat setup_netmap add_addresses );
-our @EXPORT_OK = qw(delete_addresses);
+our @EXPORT_OK = ();
 our $VERSION = '4.4_3';
 
 our @addresses_to_add;
@@ -500,25 +500,4 @@ sub add_addresses () {
     }
 }
 
-sub delete_addresses () {
-    if ( @addresses_to_add ) {
-	unless ( $config{RETAIN_ALIASES} ) {
-	    my @addrs = @addresses_to_add;
-
-	    emit '';
-
-	    while ( @addrs ) {
-		my $addr      = shift @addrs;
-		my $interface = shift @addrs;
-
-		$interface =~ s/:.*//;
-
-		emit "del_ip_addr $addr $interface";
-	    }
-
-	    emit '';
-	}
-    }
-}
-
 1;
diff --git a/Shorewall/Perl/Shorewall/Rules.pm b/Shorewall/Perl/Shorewall/Rules.pm
index 5a1458eb7..fa34dad03 100644
--- a/Shorewall/Perl/Shorewall/Rules.pm
+++ b/Shorewall/Perl/Shorewall/Rules.pm
@@ -31,7 +31,6 @@ use Shorewall::Chains qw(:DEFAULT :internal);
 use Shorewall::Actions;
 use Shorewall::Policy;
 use Shorewall::Proc;
-use Shorewall::Nat qw(delete_addresses);
 
 use strict;
 
@@ -2228,8 +2227,6 @@ EOF
 
     emit 'delete_tc1' if $config{CLEAR_TC};
 
-    delete_addresses;
-
     emit( 'undo_routing',
 	  'restore_default_route'
 	  );