Try debugging when transfer is stuck

client-tests.fs

@@ -179,13 +179,7 @@ previous
     net2o-code
       expect-reply
       log .time s" Download test 4a" $, type cr endwith
-      -1. 0 limit!
-      -1. 1 limit!
-      -1. 2 limit!
-      -1. 3 limit!
-      -1. 4 limit!
-      -1. 5 limit!
-      -1. 6 limit!
+      7 0 DO  -1. I limit!  LOOP
       n2o:done
     end-code| n2o:close-all ['] .time $err ;
 

net2o-cmd.fs

@@ -1061,11 +1061,12 @@ cell 8 = [IF] 6 [ELSE] 5 [THEN] Constant cell>>
 \ keepalive
 
 also net2o-base
-: transfer-keepalive? ( -- )  o to connection
-    timeout( ." transfer keepalive " expected@ hex. hex.
+: .keepalive ( -- )  ." transfer keepalive " expected@ hex. hex.
     data-rmap @ >o dest-tail @ hex. dest-back @ hex. o>
-    F cr )
-    rewind-transfer 0= ?EXIT
+    F cr ;
+: transfer-keepalive? ( -- )  o to connection
+    timeout( .keepalive )
+    rewind-transfer 0= IF  .keepalive  EXIT  THEN
     expected@ tuck u>= and IF  net2o-code
 	ack <req +expected req> endwith IF  slurp  THEN  end-code  EXIT  THEN
     net2o-code  expect-reply