Index: addr.fs
==================================================================
--- addr.fs
+++ addr.fs
@@ -119,11 +119,11 @@
 
 : addr>6sock ( -- )
     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!
+    flowlabel( rng32 $7FFFF and sockaddr1 sin6_flowinfo be-l! )
     host:route $@ !temp-addr ;
 
 : addr>4sock ( -- )
     host:key @ dest-0key< !
     host:portv4 w@ sockaddr1 port be-w!

Index: debugging.fs
==================================================================
--- debugging.fs
+++ debugging.fs
@@ -82,10 +82,11 @@
 debug: qr( \ qr code stuff
 debug: deprecated( \ deprecated stuff
 debug: unhandled( \ unhandled commands
 debug: syncfile( \ synchronous file operations
 debug: newvault( \ new style vault keys
+debug: flowlabel( \ experiment with flow labels
 
 -db profile( \ don't profile by default )
 +db ipv6( \ ipv6 should be on by default )
 +db ipv4( \ ipv4 should be on by default )
 +db ipv64( \ ipv6 over 4

Index: ip.fs
==================================================================
--- ip.fs
+++ ip.fs
@@ -128,11 +128,11 @@
     0         r@ sin6_addr 4 + l!
     $0064ff9b r> sin6_addr be-l! ;
 
 : sock-rest ( sockaddr -- addr u ) >r
     AF_INET6 r@ family w!
-\   0        r@ sin6_flowinfo l!
+    flowlabel( )else( 0        r@ sin6_flowinfo l! )
     0        r@ sin6_scope_id l!
     r> sockaddr_in6 ;
 
 : sock-rest4 ( sockaddr -- addr u ) >r
     AF_INET r@ family w!