diff --git a/basis/cpu/x86/x86.factor b/basis/cpu/x86/x86.factor index d7234eb389..8dac1efed6 100644 --- a/basis/cpu/x86/x86.factor +++ b/basis/cpu/x86/x86.factor @@ -391,7 +391,7 @@ M:: x86 %string-nth ( dst src index temp -- ) ] with-small-register ; M:: x86 %set-string-nth-fast ( ch str index temp -- ) - ch { index str } [| new-ch | + ch { index str temp } [| new-ch | new-ch ch ?MOV temp str index [+] LEA temp string-offset [+] new-ch 1 small-reg MOV