diff --git a/net2o-ip.fs b/net2o-ip.fs
index 102d925ca74412c628ef6d475f51842d6dd9b990..0b75bbb8cb24e20faaab2d265375181e4c4a52b4 100644
--- a/net2o-ip.fs
+++ b/net2o-ip.fs
@@ -299,13 +299,13 @@ Forward !my-addr ( -- )
     nat( ticks .ticks ."  ping: " 2dup .address cr )
     2>r net2o-sock ">" 0 2r> sendto drop ;
 
-: p+ ( addr u -- addr' u' )
+: pathc+ ( addr u -- addr' u' )
     BEGIN  dup  WHILE  over c@ $80 < >r 1 /string r>  UNTIL  THEN ;
 
 : .addr-path ( addr -- )
     dup be@ routes #.key dup 0= IF  drop $10 xtype  ELSE
 	$@ .address
-	$10 p+ 0 -skip dup IF  '|' emit  THEN xtype  THEN ;
+	$10 pathc+ 0 -skip dup IF  '|' emit  THEN xtype  THEN ;
 
 \ Create udp socket
 
diff --git a/net2o-socks.fs b/net2o-socks.fs
index fa60ae151e9aaa711b6504719263429a44eace0e..8343f837f9dc99bb7089d685fec8f56b05e28b14 100644
--- a/net2o-socks.fs
+++ b/net2o-socks.fs
@@ -204,7 +204,7 @@ Variable lastn2oaddr
     path r> plen move ;
 : skip-dest ( addr -- )
     $10 2dup 0 scan nip -
-    2dup p+ { addr1 u1 addr2 u2 } \ better use locals here
+    2dup pathc+ { addr1 u1 addr2 u2 } \ better use locals here
     addr2 addr1 u2 move
     addr1 u1 u2 /string erase ;