diff --git a/Shorewall-common/lib.cli b/Shorewall-common/lib.cli
index 930a80242..d7cbc4efd 100644
--- a/Shorewall-common/lib.cli
+++ b/Shorewall-common/lib.cli
@@ -536,7 +536,7 @@ show_command() {
 	    [ $# -gt 1 ] && usage 1
 	    echo "$PRODUCT $version IP at $HOSTNAME - $(date)"
 	    echo
-	    ip addr list
+	    ip -4 addr list
 	    ;;
 	routing)
 	    [ $# -gt 1 ] && usage 1
@@ -717,7 +717,7 @@ dump_command() {
     [ -f /proc/net/ip_conntrack ] && cat /proc/net/ip_conntrack || cat /proc/net/nf_conntrack
 
     heading "IP Configuration"
-    ip addr list
+    ip -4 addr list
 
     heading "IP Stats"
     ip -stat link list
diff --git a/Shorewall-perl/Shorewall/Tc.pm b/Shorewall-perl/Shorewall/Tc.pm
index 869f53b12..944048d5f 100644
--- a/Shorewall-perl/Shorewall/Tc.pm
+++ b/Shorewall-perl/Shorewall/Tc.pm
@@ -388,7 +388,6 @@ sub validate_tc_device( $$$$$ ) {
 			    classify      => $classify , 
 			    tablenumber   => 1 ,
 			    redirected    => \@redirected ,
-			    protocols     => [] ,
 			  } ,
 
     push @tcdevices, $device;