diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm
index 72430c2c5..d2f9f67b4 100644
--- a/Shorewall/Perl/Shorewall/Tc.pm
+++ b/Shorewall/Perl/Shorewall/Tc.pm
@@ -1121,7 +1121,7 @@ sub process_tc_filter() {
 		    fatal_error "ICMP not allowed with IPv6" unless $family == F_IPV4;
 		    fatal_error "SOURCE PORT(S) are not allowed with ICMP" if $sportlist ne '-';
 
-		    my ( $icmptype , $icmpcode ) = split '//', validate_icmp( $portrange );
+		    my ( $icmptype , $icmpcode ) = split '/', validate_icmp( $portrange );
 
 		    my $rule1 = "   match icmp type $icmptype 0xff";
 		    $rule1   .= "\\\n   match icmp code $icmpcode 0xff" if defined $icmpcode;
@@ -1132,7 +1132,7 @@ sub process_tc_filter() {
 		    fatal_error "IPv6 ICMP not allowed with IPv4" unless $family == F_IPV4;
 		    fatal_error "SOURCE PORT(S) are not allowed with IPv6 ICMP" if $sportlist ne '-';
 
-		    my ( $icmptype , $icmpcode ) = split '//', validate_icmp6( $portrange );
+		    my ( $icmptype , $icmpcode ) = split '/', validate_icmp6( $portrange );
 
 		    my $rule1 = "   match icmp6 type $icmptype 0xff";
 		    $rule1   .= "\\\n   match icmp6 code $icmpcode 0xff" if defined $icmpcode;