diff --git a/Shorewall/changelog.txt b/Shorewall/changelog.txt
index f05875063..203e7571d 100644
--- a/Shorewall/changelog.txt
+++ b/Shorewall/changelog.txt
@@ -4,6 +4,8 @@ Changes in 3.2.0 Beta 7
 
 2)  Restore traffic control to 'refresh'.
 
+3)  Add MTU column to /etc/shorewall/tcdevices.
+
 Changes in 3.2.0 Beta 6
 
 1)  Fix tc "notfound" errors when 'restart' is run out of ip-up.local.
diff --git a/Shorewall/firewall b/Shorewall/firewall
index 6279ab2ed..068dde859 100755
--- a/Shorewall/firewall
+++ b/Shorewall/firewall
@@ -1742,18 +1742,17 @@ check_disabled_startup() {
     fi
 }
 
-#
-# tc4shorewall uses this function to report progress
-#
-progress_message_and_save()
-{
-    progress_message $@
-}
-
 #
 # Refresh queuing and classes
 #
 refresh_tc() {
+    #
+    # tc4shorewall (setup_traffic_shaping()) uses this function to report progress
+    #
+    progress_message_and_save()
+    {
+	progress_message $@
+    }
 
     echo "Refreshing Traffic Control Rules..."
 
diff --git a/Shorewall/functions b/Shorewall/functions
index 643ab64ba..3a6817b1d 100644
--- a/Shorewall/functions
+++ b/Shorewall/functions
@@ -1502,7 +1502,6 @@ verify_mark() # $1 = value to test
 setup_traffic_shaping()
 {
     local mtu r2q tc_all_devices device mark rate ceil prio options devfile=$(find_file tcdevices) classfile=$(find_file tcclasses) devnum=1
-    mtu=1500
     r2q=10
 
     rate_to_kbit() {
@@ -1644,7 +1643,8 @@ setup_traffic_shaping()
     }
 
     add_root_tc() {
-	local defmark
+	local defmark dev
+	dev=$(chain_base $device)
 	defmark=$(get_defmark_for_dev $device)
 
 	if [ $COMMAND = compile ]; then
@@ -1652,12 +1652,16 @@ setup_traffic_shaping()
 	    save_command qt tc qdisc del dev $device ingress
 	fi
 
+	[ x${mtu:--} = x- ] && mtu=1500
+	
+	eval ${dev}_mtu=$mtu
+	
 	run_tc qdisc add dev $device root handle $devnum: htb default 1$defmark
-	run_tc class add dev $device parent $devnum: classid $devnum:1 htb rate $outband
+	run_tc class add dev $device parent $devnum: classid $devnum:1 htb rate $outband mtu $mtu
 	run_tc qdisc add dev $device handle ffff: ingress
 	run_tc filter add dev $device parent ffff: protocol ip prio 50 u32 match ip src 0.0.0.0/0 police rate ${inband} burst 10k drop flowid :1
-	eval $(chain_base $device)_devnum=$devnum
-	devnum=$(($devnum + 1))
+	devnum=$(($devnum + 1))	
+	eval ${dev}_devnum=$devnum
     }
 
     add_tc_class() {
@@ -1683,7 +1687,9 @@ setup_traffic_shaping()
 		;;
 	esac
 
-	eval devnum=\$$(chain_base $device)_devnum
+	dev=$(chain_base $device)
+	eval devnum=\$${dev}_devnum
+	eval mtu=\$${dev}_mtu
 	#
 	# Convert HEX/OCTAL mark representation to decimal
 	#
@@ -1693,7 +1699,7 @@ setup_traffic_shaping()
 
 	[ -n "$devnum" ] || fatal_error "Device $device not defined in $devfile"
 
-	run_tc class add dev $device parent $devnum:1 classid $classid htb rate $rate ceil $ceil prio $prio quantum $(calculate_quantum $rate)
+	run_tc class add dev $device parent $devnum:1 classid $classid htb rate $rate ceil $ceil prio $prio mtu $mtu quantum $(calculate_quantum $rate)
 	run_tc qdisc add dev $device parent $classid handle 1$mark: sfq perturb 10
 	# add filters
 	if [ -n "$CLASSIFY_TARGET" ]; then
@@ -1732,9 +1738,9 @@ setup_traffic_shaping()
 	[ $COMMAND = compile ] && save_progress_message "Setting up Traffic Control..."
 	progress_message2 "$DOING $devfile..."
 
-	while read device inband outband defmark ackmark; do
-	    expandv device inband outband defmark ackmark
-	    tcdev="$device $inband $outband"
+	while read device inband outband mtu; do
+	    expandv device inband outband mtu
+	    tcdev="$device $inband $outband $mtu"
 	    add_root_tc
 	    progress_message_and_save "   TC Device $tcdev defined."
 	done < $TMP_DIR/tcdevices
diff --git a/Shorewall/releasenotes.txt b/Shorewall/releasenotes.txt
index 4b9c8dda8..6d6cc60f0 100644
--- a/Shorewall/releasenotes.txt
+++ b/Shorewall/releasenotes.txt
@@ -36,6 +36,10 @@ Other changes in 3.2.0 Beta 7
 
 1)  'shorewall refresh' once again refreshes the tcrules and traffic shaping.
 
+2)  An MTU column has been added to /etc/shorewall/tcdevices that allows
+    specification of the MTU to use for traffic-shaping. If not specified or
+    if specified as '-' then 1500 is assumed.
+
 Migration Considerations:
 
 1)  If you are upgrading from Shorewall 2.x, it is essential that you read
diff --git a/Shorewall/tcdevices b/Shorewall/tcdevices
index 59b22bfe7..4ac60981a 100644
--- a/Shorewall/tcdevices
+++ b/Shorewall/tcdevices
@@ -51,6 +51,9 @@
 #			speed, and make sure there is NO space between the
 #			number and the unit.
 #
+#	MTU		The device's MTU. If not specified, a value of 1500
+#			is assumed.
+#
 #	Example 1:	Suppose you are using PPP over Ethernet (DSL)
 #			and ppp0 is the interface for this. The
 #			device has an outgoing bandwidth of 500kbit and an
@@ -59,5 +62,5 @@
 #
 #
 ###############################################################################
-#INTERFACE	IN-BANDWITH	OUT-BANDWIDTH
+#INTERFACE	IN-BANDWITH	OUT-BANDWIDTH		MTU
 #LAST LINE -- ADD YOUR ENTRIES BEFORE THIS ONE -- DO NOT REMOVE