Experiment with flow label

addr.fs

@@ -121,6 +121,7 @@ User dest-0key< \ pointer to obtained dest-0key
     host:key @ dest-0key< !
     host:portv6 w@ sockaddr1 port be-w!
     host:ipv6 sockaddr1 sin6_addr ip6!
+    rng32 $7FFFF and sockaddr1 sin6_flowinfo be-l!
     host:route $@ !temp-addr ;
 
 : addr>4sock ( -- )

ip.fs

@@ -130,7 +130,7 @@ Forward .addr$
 
 : sock-rest ( sockaddr -- addr u ) >r
     AF_INET6 r@ family w!
-    0        r@ sin6_flowinfo l!
+\   0        r@ sin6_flowinfo l!
     0        r@ sin6_scope_id l!
     r> sockaddr_in6 ;