CLEO4 0ADE bug

{
Don`t forget to create  test.fxt with such a content:
BOATS Boats
}

{$CLEO}
0000: "It`s a bug"

:TEST
wait 0
00BC: show_text_highpriority GXT 'BOATS' time 1000 flag 1
if
0AB0: key_pressed 48    // 0
jf @TEST
0AC8: 0@ = allocate_memory_size 260

0ADE: 0@ = text_by_GXT_entry 'BOATS'
0AD1: show_formatted_text_highpriority "test: %s" time 3000 0@

0AC9: free_allocated_memory 0@
wait 3000
jump @TEST