anchor.diff:      case collect(I) of
   	error -> blockify(Is0, [I|Acc]);
   	Instr when is_tuple(Instr) ->
  -	    {Block,Is} = collect_block(IsAll),
  +            {Block0,Is} = collect_block(IsAll),
  +            Block = sort_moves(Block0),
   	    blockify(Is, [{block,Block}|Acc])
       end;
   blockify([], Acc) -> reverse(Acc).
  
positive.code: embed_lines([I|Is], Acc) ->
      embed_lines(Is, [I|Acc]);
  embed_lines([], Acc) -> Acc.
  
negative.code: -module(beam_block).
  
  -export([module/2]).
  -import(lists, [keysort/2,reverse/1,splitwith/2]).
  
  -spec module(beam_utils:module_code(), [compile:option()]) ->
                      {'ok',beam_utils:module_code()}.
  