anchor.diff:          true ->
               E
       end;
  -unhide_calls({call,A,{remote,L,{atom,L,m},{atom,L,f}}=F,Args}, MaxLine, D) ->
  -    Line = erl_anno:line(A),
  +unhide_calls({call,Anno,{remote,A,{atom,A,m},{atom,A,f}}=F,Args},
  +             MaxLine, D) ->
  +    Line = erl_anno:line(Anno),
       if
           Line > MaxLine ->
               {call,Atom} = map_get(Line, D),
  -            {call,L,Atom,unhide_calls(Args, MaxLine, D)};
  +            {call,A,Atom,unhide_calls(Args, MaxLine, D)};
           true ->
  -            {call,A,F,unhide_calls(Args, MaxLine, D)}
  +            {call,Anno,F,unhide_calls(Args, MaxLine, D)}
       end;
   unhide_calls(T, MaxLine, D) when is_tuple(T) -> 
       list_to_tuple(unhide_calls(tuple_to_list(T), MaxLine, D));
  
positive.code: find_maxline(LC) ->
      put('$erl_eval_max_line', 0),
      F = fun(A) ->
                  L = erl_anno:line(A),
                  case is_integer(L) and (L > get('$erl_eval_max_line')) of
                      true -> put('$erl_eval_max_line', L);
                      false -> ok
                  end end,
      _ = erl_parse:map_anno(F, LC),
      erase('$erl_eval_max_line').
  
  
negative.code:     MaxLine = find_maxline(LC),
      {LC1, D} = hide_calls(LC, MaxLine),
      case qlc:transform_from_evaluator(LC1, Bs0) of
          {ok,{call,A,Remote,[QLC]}} ->
              QLC1 = unhide_calls(QLC, MaxLine, D),
              expr({call,A,Remote,[QLC1 | As0]}, Bs0, Lf, Ef, RBs);
          {not_ok,Error} ->
              ret_expr(Error, Bs0, RBs)
      end;
  expr({call,A1,{remote,A2,{record_field,_,{atom,_,''},{atom,_,qlc}=Mod},
                 {atom,_,q}=Func},
        [{lc,_,_E,_Qs} | As0]=As}, 
       Bs, Lf, Ef, RBs) when length(As0) =< 1 ->
      expr({call,A1,{remote,A2,Mod,Func},As}, Bs, Lf, Ef, RBs);
  expr({call,_,{remote,_,Mod,Func},As0}, Bs0, Lf, Ef, RBs) ->
      {value,M,Bs1} = expr(Mod, Bs0, Lf, Ef, none),
      {value,F,Bs2} = expr(Func, Bs0, Lf, Ef, none),
  