Memory allocation (randomly?) fails

[firace]

I'm struggling to understand why the *Y=AllocateMemory statement in the below example sometimes fails (Invalid memory access). It crashes about 50% of the time for me.

Code: Select all

Procedure Test(A, FindString$)
  
  Buffer_Len=StringByteLength(FindString$)
  *X=AllocateMemory(Buffer_Len)
  PokeS(*X,FindString$,-1)   ;;; this line apparently interferes? <-
  
  *Y=AllocateMemory(Buffer_Len)    ;;;;;;;;;;;;    why sometimes fails?
  
EndProcedure

Test(123,"info")

[Shield]

You forgot to allocate space for the null terminator (two bytes in unicode).

[firace]

You forgot to allocate space for the null terminator (two bytes in unicode).

That was it!! Thank you very much.