anchor.diff:          {ok, {_,_,Body}} ->
               {ok, Tokens, _} = erl_scan:string(Body),
               Forms = split_after_dot(Tokens, [], []),
  -            [ begin
  -                  {ok, Term} = erl_parse:parse_term(Form),
  -                  Term
  -              end || Form <- Forms ];
  +            Terms = [ begin
  +                          {ok, Term} = erl_parse:parse_term(Form),
  +                          Term
  +                      end || Form <- Forms ],
  +            case lists:keyfind(vsn_format, 1, Terms) of
  +                false -> [];
  +                {vsn_format,N} when N > 1 -> Terms
  +            end;
           _ -> []
       end.
   
  
positive.code:         {revisions,Revs} -> OldRevs = Revs
      end,
      F = fun (NewRev) -> is_skippable(OldRevs, NewRev) end,
      {Skippable, Todo} = lists:partition(F, NewRevs),
      %% Note: deleted revs are lost
      {ok, Todo, Skippable}.
  
  
negative.code:         true -> false;
          false ->
              ?MILESTONE("Skipping ~s ~p", [NewRev#rev.type, NewRev#rev.id]),
              {true, OldRev}
      end;
  is_skippable ([_OldRev|Rest], NewRev) ->
      is_skippable(Rest, NewRev).
  
  partition_map (Fun, List) ->
      lists:foldl(fun (Elt, {Satisfying,NotSatisfying}) ->
                          case Fun(Elt) of
                              false -> {Satisfying, [Elt|NotSatisfying]};
                              {true,Val} -> {[Val|Satisfying], NotSatisfying};
                              true -> {[Elt|Satisfying], NotSatisfying}
                          end
                  end
                 , {[],[]}, List).
  
  consult_meta (false, _TargetPath) -> [];
  consult_meta (true, TargetPath) ->
  