Index: helper.fs
==================================================================
--- helper.fs
+++ helper.fs
@@ -298,11 +298,11 @@
     2dup keysize2 safe/string hostc$ $! key2| 2dup pkc over str= to ?myself
     2dup >d#id { id }
     id .dht-host $[]# 0= IF  2dup pk-lookup  2dup >d#id to id  THEN
     2dup make-context
     false id dup .dht-host ['] insert-host? $[]map drop nip nip
-    lastaddr# IF  lastaddr# cell+ $@ dest-0key $!  THEN ;
+    lastaddr# IF  lastaddr# cell+ $@ dest-0key sec!  THEN ;
 in net2o : pklookup ( pkaddr u -- )
     net2o:pklookup? 0= !!no-address!! ;
 
 : ?nat-done ( n -- )
     nat( ." req done, issue nat request" forth:cr )