Fix xlat464 initialization problem

ip.fs

@@ -85,7 +85,7 @@ User ip6:#
 : .ip6a ( addr len -- addr' len' )
     2dup fake-ip4 12 string-prefix? IF  12 /string .ip4a  EXIT  THEN
     -1 ip6:# !
-    '[' 8 0 DO  ip6:# @ 2 < IF  emit  ELSE drop  THEN .ip6w ':'  LOOP
+    '[' over 2/ 0 DO  ip6:# @ 2 < IF  emit  ELSE drop  THEN .ip6w ':'  LOOP
     drop ." ]" ;
 : .ip6 ( addr len -- )
     .ip6a .port .net2o ;

socks.fs

@@ -179,7 +179,7 @@ Variable net2o-ipv4 "ipv4.net2o.de" net2o-ipv4 $!
 	swap sin6_addr dup $C nat64-ip4 over str= IF
 	    drop \ normal nat64-ip4 prefix
 	ELSE
-	    [: ." unusual xlat464 prefix: " dup $C .ip6a cr ;] do-debug
+	    [: ." unusual xlat464 prefix: " dup $C .ip6a 2drop cr ;] do-debug
 	    nat64-ip4 $C move \ update nat64-ip4 prefix
 	THEN
     ELSE  nip  THEN ;