Fix ihave, problem

8041812f · Bernd Paysan · 63af4a64 · 8041812f
Verified Commit 8041812f authored Jan 09, 2020 by Bernd Paysan
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

msg.fs msg.fs +1 -1

No files found.
--- a/msg.fs
+++ b/msg.fs
@@ -1377,7 +1377,7 @@ also net2o-base
 	c:0key sigonly@ >hash hashtmp hash#128 forth:type ;] $tmp $, msg-chain ;
 : ihave, ( -- )
    ihave$ $@ dup IF
-	maxstring 4 - mehave$ $@len - dup 0< IF  2drop  EXIT  THEN
+	maxstring over 4 + - mehave$ $@len - dup 0< IF  2drop  EXIT  THEN
 	keysize negate and dup >r
 	$, mehave$ $@ $, msg-ihave
 	ihave$ 0 r> $del