diff --git a/Shorewall-perl/prog.header6 b/Shorewall-perl/prog.header6
index ab472f233..ba1020e05 100644
--- a/Shorewall-perl/prog.header6
+++ b/Shorewall-perl/prog.header6
@@ -555,6 +555,13 @@ normalize_address() # $1 = valid IPv6 Address
     done
 }
 
+#
+# Reads correctly-formed and fully-qualified host and subnet addresses from STDIN. For each
+# that defines a /120 or larger network, it sends to STDOUT:
+#
+#    The corresponding subnet-router anycast address (all host address bits are zero)
+#    The corresponding anycast addresses defined by RFC 2526 (the last 128 addresses in the subnet)
+#
 convert_to_anycast() {
     local address
     local badress
@@ -615,16 +622,16 @@ convert_to_anycast() {
 		    else
 			badress=$address
 		    fi
-
+		    #
+		    # Note: at this point $address and $badress are the same except possibly for 
+		    #       the contents of the last half-word
+		    #
 		    list_count $(split $address)
 
 		    l=$?
 		    #
 		    # Now generate the anycast addresses defined by RFC 2526
 		    #
-		    # Note: at this point $address and $badress are the same except possibly for 
-		    #       the contents of the last half-word
-		    #
 		    if [ $l -lt 8 ]; then
 			#
 			# The subnet-router address