diff --git a/Shorewall-perl/Shorewall/Tunnels.pm b/Shorewall-perl/Shorewall/Tunnels.pm
index f8cf8489c..8b58556e0 100644
--- a/Shorewall-perl/Shorewall/Tunnels.pm
+++ b/Shorewall-perl/Shorewall/Tunnels.pm
@@ -128,7 +128,7 @@ sub setup_tunnels() {
 	    $port = $p;
 	    $protocol = $proto;
 	} elsif ( $proto ) {
-	    $port = $proto;
+	    $protocol = $proto;
 	}
 
 	add_rule $inchainref,  "-p $protocol $source --dport $port -j ACCEPT";
@@ -147,7 +147,7 @@ sub setup_tunnels() {
 	    $port = $p;
 	    $protocol = $proto;
 	} elsif ( $proto ) {
-	    $port = $proto;
+	    $protocol = $proto;
 	}
 
 	add_rule $inchainref,  "-p $protocol $source --sport $port -j ACCEPT";
@@ -166,7 +166,7 @@ sub setup_tunnels() {
 	    $port = $p;
 	    $protocol = $proto;
 	} elsif ( $proto ) {
-	    $port = $proto;
+	    $protocol = $proto;
 	}
 
 	add_rule $inchainref,  "-p $protocol $source --dport $port -j ACCEPT";