anchor.diff:      DestParts = filename:split(DestPath),
       {SrcParentParts,[SrcFilename]} = lists:split(length(SrcParts)-1, SrcParts),
       {DestParentParts,[DestFilename]} = lists:split(length(DestParts)-1, DestParts),
  -
  -    mnesia:activity(transaction, fun()->
  -
  +    mnesia:activity(transaction, fun()->
           case {p_get_inode(SrcParentParts), p_get_inode(SrcPath)} of
               {{ok, SrcParentInode},{ok, SrcInode}} ->
                   case p_get_inode(DestParentParts) of
  
positive.code:     end).
  
  
  p_each_children(F,Children) ->
      Iter = gb_trees:iterator(Children),
      p_each_iter(F,gb_trees:next(Iter)).
  
negative.code:             case gb_trees:lookup(DestFilename, Children) of
                  none ->
                      ok=p_unlink(SrcParentInode,SrcFilename),
                      ok=p_link(DestParentInode, {DestFilename,SrcInode});
                  {_,Inode} ->
                      case p_stat(Inode) of
                          {ok, {_, directory}} ->
  