Alice-test works again, too

alice-test.fs

@@ -24,9 +24,10 @@ init-client
     nick-key >o ke-pk $@
     BEGIN  >d#id >o 0 dht-host $[]@ o> over c@ '!' =  WHILE
 	    replace-key o> >o ke-pk $@ ." replace key: " 2dup 85type cr
-	    2dup c:fetch-id
+	    o o> >r 2dup c:fetch-id r> >o
     REPEAT  o> 2drop do-disconnect ;
 : c:insert-host ( addr u -- )
+    ." check host: " 2dup .host cr
     host>$ IF
 	[: check-addr1 0= IF  2drop  EXIT  THEN
 	  insert-address temp-addr ins-dest
@@ -39,8 +40,8 @@ init-client
 
 : n2o:lookup ( addr u -- )
     2dup c:lookup
-    0 n2o:new-context >o rdrop dest-key  return-addr $10 erase
-    me>d#id .dht-host ['] c:insert-host $[]map ;
+    0 n2o:new-context >o rdrop 2dup dest-key  return-addr $10 erase
+    nick-key .ke-pk $@ >d#id >o dht-host ['] c:insert-host $[]map o> ;
 
 : nat:connect ( addr u -- )
     init-cache' n2o:lookup

bob-test.fs

@@ -24,11 +24,11 @@ init-client
 
 : c:bob ( -- ) 
     $2000 $10000 "test" ins-ip dup add-beacon c:connect
-    ." Bob connected" cr
+    ." Bob connected with: " pkc $20 85type cr
     c:revoke-bob
-    ." Bob revoked" cr
+    ." Bob revoked: " pkc $20 85type  cr
     replace-me
-    ." Bob replaced" cr
+    ." Bob replaced: " pkc $20 85type  cr
     do-disconnect ;
 
 c:bob server-loop

client-tests.fs

@@ -87,7 +87,7 @@ previous
       cookie+request
     end-code| ;
 
-: c:fetch-id ( nick u -- )
+: c:fetch-id ( pubkey u -- )
     net2o-code
       expect-reply  fetch-id,
       cookie+request